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SUMMARY 

A unified  prediction  method  has  been  developed  to  support  V/STOL 
Stability  and  Control  analyses.  The  method  is  geared  to  a preliminary 
design  environment  and  is  documented  in  Volume  I of  this  report.  The 
method  has  been  programmed  for  the  CDC  6600  and  this  volume  constitutes 
a User  Manual  for  that  program. 


Input  data  requirements  are  listed  and  the  necessary  inf ormat ion  for 
interpretation  of  the  program  output  is  presented.  General  guidance  for 
using  the  program  is  provided  in  this  volume  but  the  user  is  directed  to 
Volume  I of  this  report  for  in-depth  discussion  of  the  required  configuration 
data  and  methods  of  determining  it. 

Input  to  the  program  may  be  either  in  English  or  Metric  units. 

However,  all  program  output  is  in  Metric  units  as  described  in  reference 
fa).  Listings  of  the  Fortran  code  and  sample  input  and  output  are  presented 
in  Appendices. 
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INTRODUCTION 

This  report  provides  the  necessary  user  information  for  applying  the 
NADC  VSAC  (V/STOL  Stability  and  Control)  computer  program.  The  program 
computes  the  stability  and  control  characteristics  (both  static  and  dynamic) 
of  a V/STOi,  aircraft  configuration  based  on  geometric  and  basic  aerodynamic 
inputs.  The  program  flow  and  computational  options  are  described  herein  as 
our  input  data  requirements  and  output  formats. 

The  majority  of  the  program  development  was  based  on  calculations  using 
the  standard  English  system  of  units  (slug-foot-second).  Recent  emphasis  on 
conversion  to  Metric  units  (kilogram-metre-second)  necessitated  conversion 
of  input  and  output  to  this  system.  The  capability  of  accepting  input  data 
in  English  units  (in  addition  to  Metric  units)  has  been  retained  but  all 
-utput  is  presented  in  Metric  units.  All  calculations  performed  internal  to 
the  program  were  left  In  English  units  as  originally  developed. 

A complete  listing  of  the  Fortran  code  is  contained  in  Appendix  A and 
sample  input  and  output  lists  for  a test  case  are  presented  in  Appendix  B. 

The  basic  program  structure  is  patterned  after  that  of  a similar  program  for 
helicopters  and  .stoppable  rotor  aircraft  developed  by  Bell  Helicopter  Company 
(reference  (b))  and  some  of  the  subroutines  are  taken  directly  from  that 
source  or  modified  for  use  here. 


PROGRAM  DESCRIPTION 

The  total  configuration  forces  and  moments  are  calculated  using  the 
models  described  in  Volume  I of  this  report.  This  force  and  moment 
f irmulation  is  used  throughout  the  remainder  of  the  program  calculations 
described  below. 

The  user  has  the  option  of  selecting  from  1 to  6 different  analyses  to 
be  performed  for  a given  set  of  configuration  data.  The  six  options  are  as 
f o 1 lows : 

1.  Nonlinear  trim  iteration; 

2.  Stability  derivative  estimation; 

3.  Small  perturbation  stability  analysis; 

4.  Maneuver  time  history  calculation; 

5.  Feast  squares  time  history  parameter  vector  analysis; 
b.  'lime  history  parameter  plotting. 

The  program  flow  through  each  of  these  options  is  presented  in  Figure  1. 
Figures  2,  3,  and  4 present  the  program  flow  through  the  trim,  stability,  and 
time  history  portions  of  the  program,  respectively. 

The  total  program  consists  of  a main  driving  routine  and  55  subroutines. 
A brief  description  of  the  main  and  each  subroutine  (listed  in  alphabetical 
order)  follows. 
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FI  CHIRK  1:  TOTAL  PROGRAM  FI.nWrUARI 


FIGURE  2:  TRIM  CALCULATION  FLOWCHART 


Fir.URF-  3:  STABILITY  ANALYSIS  FLOWCHAR I 
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VSTOL  is  the  main  driving  routine.  It  reads  the  first  data  card  and 
determines  the  program  path  to  be  taken  depending  on  the  value  of  the 
variable  NPART . 

AJACOB  controls  the  finite  difference  calculations  of  partial  derivatives 
for  both  the  trim  Jacobian  and  the  final  control  derivatives. 

ANAL  is  the  main  model  formulation  subroutine.  It  is  here  that  all  model 
component  forces  and  moments  are  calculated  and  summed.  The  output  of  this 
subroutine  consists  of  the  vehicle  total  forces  and  moments. 

CLCD  calculates  the  lift  and  drag  of  each  of  the  aerodynamic  lifting 
surfaces  based  on  geometry  and  inputs  from  ANAL  and  YF1X. 

COMSOL  calculates  the  solution  of  a set  of  simultaneous  equations  with 
complex  coefficients.  It  is  required  by  the  small  perturbation  stability 
analysis  portion  of  the  program. 

CONTRL  represents  the  formulation  of  the  vehicle  control  system.  The 
current  code  is  applicable  to  conventional  mechanical  control  systems. 

More  complex  control  laws  may  be  programmed  as  needed.  Comment  cards  are 
provided  within  CONTRL  to  assist  the  user  in  such  an  effort  and  the  XS 
input  array  is  available  for  additional  input  requirements. 

CONV  converts  input  data  from  Metric  units  to  English  equivalents  for  use 
within  the  program. 

CONV I converts  time  history  input  data  from  Metric  units  to  English 
equivalents. 

CONI  calculates  the  gearing  relationships  for  the  primary  controllers. 

CP LOT  controls  CALCOMP  plotting  of  the  time  history  variables.  This  routine 
uses  in-house  NADC  plotting  routines  and  would  require  reprogramming  for 
use  on  other  computing  facilities. 

CURVET  performs  a least  squares  curve  fit  analysis  on  selected  time  history 
variables.  Both  amplitude  and  phase  are  computed  and  may  be  normalized  by 
the  corresponding  parameters  for  a reference  variable. 

DAMPER  reduces  control  variable  increments  as  a trim  solution  is  approached 
to  improve  the  convergence  of  the  trim  iteration.  Both  the  increment  used 
to  compute  the  Jacobian  and  the  maximum  trim  variable  increments  are  reduced 
as  the  trim  errors  are  reduced. 

DATA  is  a Block  Data  Subroutine  which  contains  required  literal  data  for 
output  formats. 

PET  computes  the  value  of  an  nC^  order  determinant. 

ELEC  calculates  time  constants,  damping  ratios  and  gains  in  support  of  the 
stability  analysis  portion  of  the  program. 
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wliS L determines  the  gust  velocity  at  the  center  of  pressure  of  each  component 
of  the  aircraft.  This  routine  is  called  only  when  a gust  format  is  specified 
as  a time  history  input. 

I NIT  controls  printing  of  the  time  history  outputs. 

1 TRIM  performs  the  trim  iteration  calculations  and  determines  when  the 
trim  requirements  are  satisfied. 

IVAR  initializes  required  parameters  for  any  time  history  input  functions. 

JACOB i calculates  the  Jacobian  for  use  in  the  trim  iteration.  An  additional 
entrv  point,  BJACOB,  is  used  to  calculate  the  final  control  derivative 
matrix. 

if! INI  calculates  the  inlet  momentum  and  propulsion-induced  aero  forces  and 
moments  acting  on  the  vehicle. 

LAHORE  calculates  the  lateral/directional  characteristic  roots  and  transfer 
functions. 

LI F JET  calculates  the  forces  and  moments  produced  by  the  vectorable  nozzle 
engines.  Included  in  this  subroutine  is  the  calculation  of  gyroscopic 
moments  due  to  engine  angular  momentum. 

LMODE  calculates  the  longitudinal  characteristic  roots  and  transfer  functions. 

HAND  is  the  main  routine  of  the  time  history  calculation.  It  controls  the 
calculation  of  forces  and  moments  due  to  control  and  disturbance  inputs  and 
integrates  the  equations  of  motion. 

MATRIX  calculates  the  elements  of  the  Euler  angle  transformation  matrix. 

MNEM  performs  required  initialization  prior  to  problem  solution. 

MODE  controls  calculation  of  transfer  function  numerator  roots  and  gains. 

OFFTRM  computes  the  required  trim  forces  and  moments  for  a specified  trim 
condition . 

PARA  prints  output  message  indicating  whether  or  not  the  aircraft  has  been 
trimmed  at  the  specified  condition. 

PPLOT  controls  on-line  printer  plotting  of  time  history  variables. 

KANO  computes  the  Euler  angles  between  two  sets  of  axes  whose  orientations 
are  specified. 


HAT!  limits  trim  control  variable  increments  to  preselected  maxima  during 
the  trim  iteration. 


'-•f  REACT  computes  the  forces  and  moments  produced  by  the  RCS  nozzles. 


a 


RIEMAN  integrates  a second  order  differential  equation.  It  is  used  to 
calculate  RCS  thrust  when  a second  order  lag  is  present  and  may  be  used  in 
the  programming  of  higher  order  control  system  models. 

ROOA  calculates  the  roots  of  the  characteristic  matrix  in  the  stability 
analysis  portion  of  the  program.  A call  to  ROOA  sets  initial  conditions 
and  a call  to  ROOB  (an  entry  point)  calculates  the  roots. 

SLTE  substitutes  the  proper  control  vector  into  the  proper  location  in  the 
characteristic  matrix  for  transfer  function  calculation. 

S LTT  performs  the  inverse  operation  to  that  of  SLTE. 

SOLVE  solves  a system  of  linear  equations  by  Gaussian  elimination.  It  is 
used  during  the  trim  iteration  process. 

SRT  is  the  main  routine  controlling  the  solution  for  the  characteristic- 
roots. 


STAB  is  the  driving  routine  for  the  stability  analysis  section  of  the  program. 

START  performs  initializations,  transformations,  etc.  to  begin  each  problem 
solution . 

STLJES  integrates  a first  order  differential  equation.  It  is  used  to 
calculate  RCS  thrust  when  a first  order  lag  is  present  and  may  be  used  in 
control  system  programming. 

TIMEX  determines  computer  usage  times  for  output  purposes. 

TINIT  augments  the  initialization  performed  in  MNEM. 

TRIM  is  the  driving  routine  for  the  trim  section  of  the  program. 

TURN  calculates  vehicle  forces  and  moments  required  for  trim  in  a coordinated 
turn. 

VAR I implements  the  input  forcing  functions  for  time  history  calculations. 

VR2D  performs  the  standard  two-dimensional  vector  transformation. 

VRID  performs  the  standard  three-dimensional  vector  transformation. 

WRKM  prints  the  vehicle  component  forces  and  moments. 

WROT 1 prints  the  heading  for  output  pages. 

WRVP  prints  the  partial  derivative  matrix  for  each  trim  iteration.  A call 
to  the  entry  point,  WRVP1,  prints  the  complete  control  derivative  matrix 
after  a trim  solution  has  been  obtained. 

XPRO  calculates  the  standard  vector  cross  product. 
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YF i X augments  CLCD  in  the  calculation  of  lift  and  drag  coefficients. 

Program  operation,  including  input  and  output  formats,  are  described  in 
the  following  section. 

PROGRAM  OPERATION 

Guidance  in  program  operation  may  be  logically  divided  into  two  major 
topics;  input  data  requirements  and  format  and  output  data  content  and 
format.  Each  will  now  be  described. 

INPUT  DATA  REQUIREMENTS  AND  FORMAT 

The  input  data  deck  for  one  run  of  the  program  consists  of  from  1 to  104 
cards  depending  on  the  mode  of  analysis  selected.  Each  card,  its  content 
and  format,  is  described  with  additional  information  where  required. 

Card  I:  Mode  Control  Card 

Variables:  NPART,  NPRINT,  NSCALF.,  NVARA,  AL(1)  , AH(1),  NVARB,  AL(2), 

AH f 2 ) , NVARC , AL(3),  AH(3). 

Format:  12,  214,  3(15,  5X,  2F5.0). 

The  value  of  NPART  determines  the  mode  of  analysis  to  be  performed. 

Some  or  all  of  the  remaining  variables  on  Card  1 are  required  depending  on 
the  value  of  NPART.  The  allowable  values  for  NPART  and  required  additional 
variables  are  listed  below. 

NPART  = 1 : Trim  only  (card  83  is  the  last  data  card). 

NPART  = 2 : Trim,  stability  analysis  and  time  history  (cards  1 through 

84  and  at  least  one  card  85  is  required). 

NPRINT:  Print  frequency  for  time  history  output  (output  at  t=0  and 

every  NPRINTth  point  thereafter). 

NPART  -- 3:  Print-plot  time  history  data. 

NPRINT:  Frequency  of  points  to  be  plotted. 


NSCA1.E:  Control  of  plot  scale  factors. 

= 0,  no  effect 

= 1,  multiply  first  scale  by  1000 
= 2,  multiply  second  scale  by  1000 
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NVARA,  NVARB,  NVARC:  Indices  of  variables  to  be  plotted  (=  0:  no  plot). 

Table  I lists  the  available  variables  and  their  associated  indices. 


AL ( I ) , 

1=1,2, 

3: 

Lower 

scale 

1 Imit 

for 

ith 

variable 

AH(  I ) , 

I = 1,  2, 

3: 

Upper 

scale 

limit 

for 

ith 

variable 

NPART  = 4 : CALCOMP  plots  of  time  history  data. 

NPRINT:  Frequency  of  points  to  be  plotted. 

NSCALE:  Controls  plot  size  - 1 00 ( % ) produces  8 1/2"  x 11", 

50 ( % ) produces  4 1/4"  x 5 1/2",  etc. 

NVARA,  NVARB,  NVARC:  (same  as  NPART  = 3). 

When  NPART  = 4,  the  next  two  cards  contain  the  desired  plot  title 
(8A10/6A10) . 


NPART  = 6 : Revise  input  data  and  rerun  time  history. 

NPRINT:  Print  frequency  of  time  history  output.  Print  every  NPRINT1'' 

output  point. 


NSCALE:  = 0,  no  change  in  cards  5 through  83. 

= 1,  change  selected  data  from  cards  5 through  83  using 
NAMELIST  format  as  follows: 


Col 

Col 

Col 

The 


2-8  $ CHANGE 


9 blank 

10  . . . XW(5)  = 1.  , XT (1)  = 50.  , . 

last  variable  is  followed  by  a blank  and 


S. 


Cards  84  and  85  are  input  in  either  case. 

NPART  = 7 : Trim  plus  small  perturbation  stability  analysis  (card  83 

is  last  data  card) . 

NPART  = 9 : Revise  input  data  and  rerun  trim. 


NVARA:  = 0,  trim. 

= 1,  trim  plus  stability  analysis. 

Data  from  cards  5 through  83  are  revised  using  NAMELIST  format  as 
described  for  NPART  = 6. 

NPART  = 10:  Same  as  NPART  = 9 with  the  exception  that  XT(5)  through 

XT(ll)  and  XT(15)  through  XT(18)  assume  initial  values  corresponding  to  the 
previous  trim  condition. 
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TABLE  I 

PLOT  VARIABLE  INDICES 

« * O 

* INDEX  VARlARLE  * INDEX  VARIABLE  « 

* « « 

»•*•*«#•»»««»»**#»*«•«#«##»*•#»««•»««»#»«»»#««**•*#»»*»»»••*•»•*#**•»« 


• 

* 

« 

© 

1 

- 

LIFT  THRUST  1*  N 

© 

79 

- 

Z.  M 

© 

• 

2 

- 

lift  thrust  2*  N 

© 

80 

- 

ALTITUDE.  M 

© 

• 

3 

- 

LIFT  thrust  3*  N 

© 

81 

- 

GROUND  SPEED.  KTS 

© 

• 

4 

- 

LIFT  THRUST  4,  N 

© 

82 

- 

flt  path  angle.  DEG 

© 

' 

« 

5 

- 

LIFT  THRUST  5,  N 

© 

83 

- 

U-DOT.  MPSS 

© 

« 

6 

- 

LIFT  THRUST  6,  N 

© 

64 

- 

V-DOT,  MPSS 

© 

* 

7 

- 

LIFT  ANGLE  1*  DEG 

© 

85 

- 

W-DOT,  MPSS 

© 

# 

e 

- 

LIFT  ANGLE  2.  DEG 

© 

86 

- 

P- DOT.  DPSS 

© 

• 

9 

- 

LIFT  ANGLE  3*  DEG 

© 

87 

- 

Q-DOT.  DPSS 

© 

# 

10 

- 

LIFT  ANGLE  4.  DEG 

« 

88 

- 

R-DOT.  DPSS 

© 

• 

1 1 

- 

LIFT  ANGLE  5 * DEG 

© 

« 

# 

1? 

- 

LIFT  ANGLE  6»  DEG 

« 

90 

- 

U»  MPS 

© 

* 

13 

- 

REACT  THRUST  It  N 

« 

91 

- 

V.  MPS 

© 

• 

1 4 

- 

REACT  THRUST  2t  N 

© 

92 

- 

W.  MPS 

© 

« 

15 

- 

REACT  THRUST  3t  N 

« 

93 

- 

P.  DPS 

© 

• 

16 

- 

REACT  THRUST  A,  N 

© 

94 

- 

Q.  DPS 

© 

• 

17 

- 

REACT  THRUST  5.  N 

« 

95 

- 

R.  DPS 

© 

© 

18 

- 

REACT  THRUST  6t  N 

« 

© 

• 

19 

- 

REACT  THRUST  7,  N 

© 

97 

- 

PSI-DOT.  DPS 

© 

* 

20 

- 

REACT  THRU5T  8t  N 

© 

98 

- 

THETA-DOT.  DPS 

« 

« 

21 

- 

REACT  THRUST  9,  N 

© 

99 

- 

PHI-DOT.  DPS 

© 

• 

22 

- 

REACT  THRUST  10.  N 

© 

100 

- 

PSI.  DEG 

© 

• 

23 

- 

LONG  STICK,  CM 

« 

101 

- 

THETA.  DEG 

© 

V. 

• 

24 

- 

STAB  DEFLt  dEG 

© 

102 

- 

PHI.  DEG 

© 

« 

25 

- 

LAT  STICK,  CM 

« 

103 

- 

FIX  ENG  THROT,  PCT 

© 

# 

26 

- 

AILERON  DEFL.  DEG 

© 

104 

- 

LONG  STICK.  PCT 

© 

© 

27 

- 

F * D RCS  ThpuST,  PCT 

© 

105 

- 

ALPHA  (L  WING) , DEG 

© 

• 

t# 

- 

FwD  RCS  ANr,LEt  DEG 

© 

106 

- 

ALPHA  (R  WING) , DEG 

© 

r| 

© 

25 

- 

SPOILER  DEfl*  DEG 

« 

107 

- 

ALPHA  (STAB) * OEG 

© 

© 

30 

- 

AFT  RCS  THruST.  PCT 

© 

108 

- 

ALPHA  (FIN) . DEG 

© 

• 

31 

- 

AFT  RCS  ANGLE.  DEG 

© 

1 09 

- 

YAW  ALPHA  (FUS) . OEG 

© 

• 

32 

- 

RUD  PEDAL  DEFL.  CM 

© 

110 

- 

FS  CG.  CM 

© 

«> 

• 

33 

- 

RUDDER  DEFl,  DEG 

© 

111 

- 

U (GUST).  MPS 

© 

« 

34 

- 

LAT  RCS  THRUST.  PCT 

© 

112 

- 

N-X.  G'S 

© 

y 

« 

© 

113 

- 

LAT  STICK,  PCT 

« 

£ 

© 

70 

- 

FLAP  DEFL.  DEG 

© 

114 

- 

CL  (L  WING) 

• 

» 

71 

- 

X-DOT.  MPS 

© 

115 

- 

CL  (R  WING) 

© 

• 

72 

- 

Y-DOT.  MPS 

© 

116 

- 

CL  (STAB) 

© 

- ‘ 

« 

73 

- 

Z-DOT.  MPS 

© 

117 

- 

CL  (FIN) 

« 

a 

• 

74 

- 

HORIZONTAL  HIST.  M 

© 

118 

- 

ALPHA  (FUS).  DEG 

© 

« 

75 

- 

AIRSPEED.  kTS 

© 

119 

- 

BL  CG.  CM 

© 

«■» 

• 

76 

- 

HEADING  ANGLE.  DEG 

« 

120 

- 

V (GUST).  MPS 

• 

• 

77 

- 

X . M 

© 

121 

- 

N-Y.  G'S 

© 

m . 
■ 

© 

78 

- 

Y,  M 

© 

122 

- 

RUD  PEDAL.  PCT 

© 

fe 

• 

« 

© 

ttsumAoK  at# 
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TABLE  I (Continued) 
PLOT  VARIABLE  INDICES 


variable 


* INDEX 
e 


variable 


123 

- 

CD  (L  WING) 

* 

167 

- 

FZ-LIFT  JETS,  N 

ft 

124 

- 

CD  (R  WING) 

* 

16B 

- 

FZ-INLET,  N 

» 

125 

- 

CD  (STAB) 

« 

169 

- 

FZ-WEIGHT,  N 

« 

126 

- 

CD  (FIN) 

« 

170 

- 

fz-interference,  n 

ft 

127 

- 

WL  CG»  CM 

o 

171 

- 

RM-TOTAL,  N.M 

• 

128 

- 

W (GUST)*  MPS 

o 

172 

- 

RM-R  WING,  N.M 

e 

129 

- 

N-Z*  G*S 

ft 

173 

- 

RM-L  WING,  N.M 

ft 

130 

- 

LIFT  THROT  I*  PCT 

ft 

174 

- 

RM-STAB,  N.M 

e 

131 

- 

LIFT  THROT  2*  PCT 

« 

175 

- 

RM-FUS,  N.M 

c 

132 

- 

ANGLE  LEVER  1*  PCT 

ft 

176 

- 

RM-RT  JET,  N.M 

« 

133 

- 

RT  JET  THRUST.  N 

e 

177 

- 

RM-LEFT  JET,  N.M 

• 

134 

- 

ANGLE  LEVER  2*  PCT 

ft 

178 

- 

rm-react  jts,  n.m 

• 

135 

- 

left  jet  thrust,  n 

ft 

179 

- 

rm-lift  jets,  n.m 

o 

136 

- 

FX-TOTAL.  N 

ft 

180 

- 

RM-INLET.  N.m 

• 

137 

- 

FX-RT  WING,  N 

* 

181 

- 

RM-FIN,  N.M 

* 

138 

- 

FX-L  WING.  N 

ft 

182 

- 

RM-GYRO,  N.M 

• 

139 

- 

FX-STAB.  N 

ft 

183 

- 

RM-INTERFERE,  N.M 

• 

140 

- 

FX-FUS.  N 

ft 

184 

- 

pm-total,  n.m 

o 

141 

- 

FX-RT  JET,  n 

ft 

185 

- 

PM-R  WING,  N.M 

ft 

14? 

- 

FX-LEFT  JET,  N 

« 

186 

- 

PM-L  WING,  N.M 

e 

1*3 

- 

FX- REACT  JFTS.  N 

* 

187 

- 

PM-STAB,  N.M 

* 

144 

- 

FX-L I F T JETS*  N 

ft 

188 

- 

PM-FUS,  N.M 

o 

145 

- 

FX-INLET,  N 

ft 

189 

- 

PM-RT  JET,  N.M 

o 

146 

- 

FX-FIN,  N 

« 

190 

- 

PM-LEFT  JET,  N.M 

c 

147 

- 

FX-WEIGHT.  N 

ft 

191 

- 

pm-react  jts,  N.M 

o 

1 4 ft 

- 

FX-INTERFEprNCE,  n 

* 

192 

- 

PM-L  I F T JETS,  N.M 

o 

14- 

- 

fy-total,  N 

* 

193 

- 

PM- INLET , N.M 

o 

150 

- 

FY-FUS,  N 

ft 

194 

- 

PM-F IN , N.M 

c 

151 

- 

FY-RT  JET,  N 

* 

195 

- 

PM-GYRO,  n.m 

« 

152 

- 

fy-left  JEt,  n 

ft 

196 

- 

PM-INTERFERE , N.M 

*• 

153 

- 

FY-REACT  JETS,  N 

ft 

197 

- 

YM-TOTAL,  N.m 

ft 

154 

- 

fy-lift  jets*  n 

ft 

198 

- 

ym-r  wing,  n.m 

o 

155 

- 

fy-inlet,  n 

ft 

199 

- 

YM-L  WING,  N.M 

ft 

156 

- 

FY-FIN,  N 

ft 

200 

- 

YM-ST  AS , N.m 

ft 

157 

- 

FY-WEIGHT,  N 

ft 

201 

- 

YM-FllS,  n.m 

« 

158 

- 

fy-interferfnce.  n 

* 

202 

- 

YM-RT  JET,  N.M 

ft 

159 

- 

FZ-TOTAL,  N 

ft 

203 

- 

ym-left  jet,  n.m 

o 

160 

- 

FZ-RT  WING,  N 

ft 

204 

- 

YM-REACT  JTS,  N.m 

ft 

161 

- 

FZ-L  WING,  N 

ft 

205 

- 

YM-LIFT  JFTS.  N.m 

« 

162 

- 

FZ-STAB,  N 

ft 

206 

- 

YM-INLET,  N.M 

ft 

163 

- 

FZ-FUS,  N 

ft 

207 

- 

YM-FIN,  N.m 

* 

164 

- 

FZ-RT  JET,  N 

ft 

208 

- 

ym-gyro,  N.m 

ft 

165 

- 

FZ-LEFT  JET,  N 

ft 

209 

- 

ym-interfere,  n.m 

o 

166 

- 

FZ-REACT  JFTS,  N 

e 

o 
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\ CART  » 1 1 : Least 

for  sinusoidal  input). 


squares  curve  fit  of  time  history  data  (used  primarily 
Available  variables  are  listed  in  Table  I. 


NVARA:  Number  of  curves  to  be  fit. 


Al.(l):  Assumed  frequency,  to  (Hz). 

NVARB:  Number  of  reference  variables  to  be 

and  phase  angle  differences. 

Al.(2):  Number  of  curves  to  be  expressed  as 

other  curves. 

N'VARC:  Number  of  data  points  to  be  skipped 

The  following  cards,  which  are  necessary  when 
a 1AI5  format. 


used  for  amplitude  ratio 

linear  combinations  of  two 

before  curve  fit  begins. 
NPART  = 11,  are  coded  in 


Next  card(s):  Indices  (from  Table  I)  of  variables  to  be  fit. 

Next  card  (s):  Cols  1 - 5:  Number  of  variables  to  be  compared  to 
reference  variable;  cols  6-10:  Reference  variable  index;  cols  11  . . .: 

Indices  of  variables  to  compared  to  reference  variables.  There  are  NVARB 
sets  of  cards  of  this  format. 


Next  card(s):  Indices  of  variables  to  be  expressed  as  linear  combinations 

of  other  variables  in  the  form: 


A = k^  B + k2C  + k^ 


Cols  1-5:  Index  for  variable  A; 

Cols  6-10:  Index  for  variable  B; 

Cols  11-15:  Index  for  variable  C. 

There  are  AL(2)  cards  of  this  type. 


La r ds  2-U:  Run  Number  and  Title 

Variables:  IPSN,  ICOM  (200  characters  max) 

Format:  2X,  18,  6A10/7A10/7A10.  If  IPSN  is  negative,  all  input  data 

are  in  English  units.  If  IPSN  is  positive,  input  is  in  Metric  units. 

Card s 5-83:  Main  Data  Package 

Variables:  (Listed  and  defined  in  Table  II). 

Format:  7F10.0  per  card.  These  cards  are  required  for  NPART  = 1,  2,  and  7. 

Card  8 A : lime  History  Data 

Variables:  (Listed  and  defined  in  Table  II). 

Format:  6F10.0  This  card  is  required  for  NPART  = 2 and  6. 


16 
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TABLE  IT 

INPUT  DATA  VARIABLE  LIST 


Card 

FORTRAN 

Variable 

Description 

Units 

3 

XB  ( 1 ) 

j 

w 

“1 

Aircraft  gross  weight 

N (lbs) 

2 

KSF 

cm  (in) 

3 

BLp 

Fuselage  reference  point 
location 

cm  (in) 

4 

WLp 

cm  (in) 

5 

™CG 

cm  (in) 

6 

blcg 

Aircraft  CG  location 

cm  (in) 

7 

^CG 

cm  (in) 

6 

XB  (8) 

lx 

Roll  inertia 

2 2 

kg* m (slug* f t~) 

9 

:y 

Pitch  inertia 

2 

kg *m  (slug* f t~) 

10 

^ Z 

Yaw  inertia 

2 1 

kg-m  (slug- ft“) 

11 

^xz 

Product  of  inertia 

2 2 
kg-m  (slug*  ft**) 

12-14 

— 

(not  used) 

7 XB(15) 


(N/q0) 

max 

n3 

(A/%)0 


2 ■> 
m ( f t ) 


2 9. 

m (ft~) 


21 

8 : XB ( 22 ) 

1 

I 

23 


24  ml"o\a 

I 

25  i n, 

*4 

26 


(Coefficients  in  fuselage 
/force  and  moment  approximations 


9 0 

nT  (f t~) 


m ( 1 1 ) 


m *(f  t *) 
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TABLE  II  (Continued) 
INPUT  DATA  VARIABLE  LIST 


Card  FORTRAN  Variable  Description  Units 


1 ! 

28 

a2 

deg 

9 

XB(29)  j 

(N/q0) 

° max^ 

m3(ft3) 

30 

n6 

31 

(N/ q ) 

o max^ 

m3(ft3) 

32  i 

n7 

i 

33  | 

fsram 

\ inlet  momentum  application 

cm  (in) 

1 

1 

[ point 

34 

j 

cm  (in) 

1 | 

RAM  , 

/ 

33 

w 

a 

Inlet  air  weight  flow 

j N/sec (lbs/sec) 

10 

XW(1) 

sw 

Wing  planform  area 

2 , , 2, 
m (ft  ) 

2 

fsrw 

^ Center  of  pressure  location 

cm  (in) 

3 

blrw 

l for  right  wing  (FS]W=FSRW, 

cm  (in) 

f BL  = -BL  , WL  =WL  ) 

1 

4 

wlrw  i 

J LW  RW’  LW  RW; 

cm  (in) 

5 

r 

xw 

Geometric  incidence  of  wing 

deg 

6-7 

1 

(not  used) 

11 

XW(8) 

(not  used) 

9 

e/CLW 

Downwash  coefficient 

deg 

110-11 

j 

(not  used) 

12 

Cle 

O 

1/rad 

1 3 

AClB/CL 

1/rad 

14 

AClr/CL 

1/rad 

12 

XW(15)  ; 

i 

„ 1 

(']P 

1/rad 

16 

cn 

Coefficients  in  wing 

1 /rad 

& 

o 

^ lateral /direct iona 1 

j 

rwi 

aerodynamic  model 

1/rad 

1 

18 

ACn  /C.2 
r L 

1 / rad 

r,x.  -It- 
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EOKTKAN 

Va r i a b 1 e 

19 

ACnr/C0 

20 

ACnp/cL 

j 

21 

ACnp/CDa 

YW(1) 

Al/4 

2 

“b 

3 

j 

C1 

Lmax 

4 

se 

5 

d/b 

6 

| 

OL 

b 

7 

YW(8) 

A 

9 

\e 

10 

i - 

c 

11 

ACDo/6f 

12 

r 

uO 

1 3 

ua 

14 

cDa2 

YW( 1 5) 

cm0 

16 

ARe 

17 

ao 

18 

AR 

19 

CL0/Sf 

20 

ACLmax/6f 

21 

Cm6f 

XE(1) 

SH 

TABLE  II  (Continued) 
INPUT  DATA  VARIABLE  LIST 

Descr Ipt Ion 


Coefficients  in  wing  lateral/ 
direction  aerodynamic  model 


Sweep  angle  of  wing  quarter- 
chord 

Angle  of  attack  at  Cr 

max 

*and  Ct  for  a<90° 

‘"max 

Exposed  wing  planform  area 

Body  diameter  to  wing  span  ratio 

Angle  of  attack  at  Cj 

Lmax 

k and  Ct  for  a < 90° 

Hnax 

/ 

i 

Wing  taper  ratio 

Taper  ratio  of  exposed  planform 

Wing  MAC 

Zero-lift  drag  per  flap  deflection 


Coefficients  in  wing  drag 
equation 


Wing  zero-lift  moment  coefficient 
Aspect  ratio  of  exposed  planform 
Wing  2-D  lift  curve  slope 
Wing  aspect  ratio 

^Wing  flap  effects 

I 

Horizontal  stab,  planform  area 


1 
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TABLE  II  (Continued) 
INPUT  DATA  VARIABLE  LIST 


ard 

FORTRAN 

Variable 

Description 

Units 

> 

fsh 

) 

cm  (in) 

3 

BL 

V Center  of  pressure  location 

cm  (in) 

H ! 

i for  horizontal  stabilizer 

i 

4 

MLj, 

J 

cm  (in) 

5 

. 

Geometric  incidence  of 

deg 

n 

horizontal  stabilizer 

6-7 

— - 

(not  used) 

a 7 

XE(8-14) 

i 

(not  used) 

18 

YE (1-7) 

1 

(same  as  YW(l-7)  for  horizontal 

stabilizer) 

19 

YE(8-14) 

(same  as  YW(8-14)  for  horizontal 

stabilizer;  YE(ll)  not  used) 

20 

YE ( 1 5- 1 8 ) 

(same  as  YW(15-18)  for  horizontal 

stabilizer) 

(19-21) 

— 

(not  used) 

21 

XF(  1 ) 

sv 

Vertical  stabilizer  planform  area 

i/  (ft2) 

2 

FSV 

) 

cm  (in) 

3 

BL 

\ Center  of  pressure  location  for 

cm  (in) 

v 

I vertical  stabilizer 

4 

WLV 

J 

cm  (in) 

5 

Geometric  incidence  of  vertical 

deg 

stabilizer 

6 



(not  used) 

7 

Ky 

Sidewash  coefficient 

')  2 

YF (1-7) 

] 

23 

YF (8- 1 4 ) 

S (same  as  YE(1-21)  for  vertical 

24 

YF( 1 5-21) 

I stabilizer) 

2 5 

X.J  ( 1 ) 

nF.I 

Number  of  fixed  nozzles  (2  max) 

2-3 

(not  used) 

4 

FSF! 

Location  of  right  (or  center) 

cm  (in) 

nozzle  (if  n^  = 2,  left  jet 

5 

rlfj 

is  assumed  to  be  ’vmetrically 

cm  (in) 

located) 

6 

^FJ 

cm  (in) 

i 

7 

(not  used) 

— -t  t 

~ l**M ****— — — 1 *«— — — — — — — — ■ — ■ m 
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TABLE  II  (Continued) 
INPUT  DATA  VARIABLE  LIST 


FORTRAN 

Var iable 

XJ  (8) 

*FJ  j\ 

9 

6PJ  1/ 

10 

(hfA  "1 

^HFJ3L 

12-14 

1 

XC(1) 

! 

(^T^TOT 

2 

tfAt  | 

i 3 

^tPtot  ! 

! 4 

^0 1 3 tot 

5 

VSTl 

6 

A0  /6t 
J 1 

I 7 

1 

“PS 

jXC  (8-12 ) 

1 (13-14) 

L 

! XC(15) 

n 

16 

1 

17 

1 

18 

) 

19 

Ax  'j 

20 

bt  \ 

21 

CT  J 

XC(22) 

A0  ' 

23 

Bo 

24 

Cg 

Descript  ion 

Units 

Thrust  vector  orientation 

deg 

relative  to  x-axis  (right 

or  center  jet) 

deg 

Angular  momentum  of  right 

2 , 

kg*m  /sec. 

and  left  engines  at  max 

(slug- ft -/sec  1 

thrust 

kg.m'Vsec 

, 9 

(slug- ft“/sec) 

(not  used) 

Range  of  fixed  nozzle  engine 
throttle 

cm  (in) 

Thrust  per  throttle  deflection 

N /cm  (lbs/ in) 

Throttle  range  ' 

QJ 

cm  (in) 

Angle  lever  range 

1 N 

1 N 

O *"H 

cm  (in) 

Thrust  per  throttle 

c 

4-1 

N/cm  ( lbs/ in) 

2 “ 

deg/cm  (deg/ in) 

Angle  per  throttle 

(t  i-* 

U c 
o ^ 

4-1  4-1 

Angle  per  angle  lever 
(=0  if  XC  (36-47)  are 
used)  J 

u c 
0)  o 
> u 

deg/cm  (deg/in) 

(same  as  XC(3-7)  for  vectorable 
nozzle  control  set  2) 


Number  of  control  set  used  for 
control  of  vectorable  nozzles 
1 through  6.  If  no  control, 
set  to  zero. 


Coefficients  linking  tS-y ^ to 

5t2 


% 


M" 


Coefficients  linking  to 

602 


\r 


NADC-76313-30 


»* 


TABLE  II  (Continued) 
LNPUT  DATA  VARIABLE  LIST 


Card 


31 


32 


I 


FOR’1  RAN  Variable 


25 

( 6 S'*  TOT 

26 

As 

2 7 

(is/Vi 

28 

(is/6s)2 

XC(29) 

(6  1 

v Y'TOT 

30 

(5  ) 

v Y'LEFT 

31 

* M 

a'  y 

32 

(6  ) 
v R'T0T 

33 

(6r) 
r max 

34 

(6r) 

rJTOT 

35 

"'l  ink 

XC( 36) 

"*lh 

37 

(A6j)] 

38 

(S>2 

39 

(AB  r)2 

40 

(«ei>3 

41 

(AeJ)3 

42 

(502)i 

!\ 


Description 

Longitudinal  stick  range 


Coefficients  describing 
horizontal  stabilizer  gearing 
(+6S  yields  +is) 


Lateral  stick  range 

Max  left  stick  deflection 
(neg.  value) 

Aileron  gearing  (+6y  yields 

+4a) 

Rudder  pedal  range 

Max  t.e.  right  rudder  deflection 
(neg.  value) 

Range  of  rudder  deflection 


Units 


cm 

( in) 

cm 

( in) 

deg/ cm 

(deg/ in) 

deg/cm 

(deg/in) 

cm 

( in) 

cm 

( in) 

deg/cm 

(deg/ in) 

cm 

( in) 

deg 

deg 


i = 0 if  XC(6,  7,  11,  12)  are 
used  for  Oj  vs  0 if 

XC(36-47)  are  used 

V 


Coordinates  which  define 
piecewise  linear  functions  for 
A0j  vs  and  AO^  vs  <Sq ^ 


(A0  ) 

If  <50  < (Ae)r  ABj  = 6e 


cm  (in) 
deg 

cm  (in) 
deg 

cm  (in) 
deg 

cm  (in) 


22 
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TABLE  II  (Continued) 

INPUT  DATA  VARIABLE  LIST 

Card  FORTRAN  Variable  Description Units 


33 

XC ( A 3) 

(A0  j)  x 

If  1 (60)3,  ABj  = (AO  j)3 

deg 

AA 

(f>02'>2 

cm  (in) 

A 5 

(a0j)2 

deg 

46 

(de2) 3 

cm  (in) 

A7 

(a0j)3 

deg 

A8-A9 

(not  used) 

34 

XC ( 50) 

A1 

51 

®1 

1/kt 

52 

C1 

1/kt” 

53 

Dl 

1/kt  3 

5A 

a2 

1/kt 

55 

b2 

1/kt J 

56 

Aa 

Propulsion  induced 
w aerodynamic  interference 

m (ft) 

35 

XC(57) 

Ba 

coef  f icients . 

m/kt  (ft/kt) 

58 

CA 

2 1 
m/kt  (ft/kt") 

* *■ 

59 

Da 

m/kt  3 (ft/kt  3) 

60 

A 3 

m/kt  (ft/kt ) 

61 

»3 

> 

m/kt*-  (ft/kt') 

j 

1 Til 

K. 

62-63 

— 

(not  used) 

[ 36 

$4 

XT  ( 1 ) 

XT 

Inertial  trim  velocity  (+North) 

kts 

i 

2 

yT 

Inertial  trim  velocity  (+East) 

kt  s 

i 

: e 

23 

f * 

| ? 

HLi ~ 



••r*  - ;*r'*  - 

* j 

. 1.7  ■ ■ 
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TABLE  II  (Continued) 
INPUT  DATA  VARIABLE  LIST 


Card 


> 

I 


FO RTRAN  Variable  Description Units 


3 

Trim  rate  of  climb  (+up) 

m/sec  (ft/sec) 

4 

hT 

Trim  altitude 

m (ft) 

5 

Trim  yaw  angle  (i p = 0°  is 
North) 

deg 

f) 

°T 

Trim  pitch  angle  (+nose  up) 

deg 

1 

j 0T 

Trim  roll  angle  (+rt.  wing  down) 

deg 

X7(8) 


% 


9 


f Initial  trim  control  guess 


X 


10 

11 

12 

! n 

19 

I 

38  J XT (15) 

I 16 

17 
I 

18 

19 

20 


6 


R 

) 

n2 

Load  factor^ 

1 

For  turning  trim; 

TURN 

Bank  angle 

^ First  non-zero 
value  defines  turn 

R 

Turn  radius^ 

\ 

I 

bT2 

^Initial  trim 

control  guess 

S 

6q2 

Wing  flap  deflection 

— 

(not  used) 

2 I 


Trim  indicator  if  n?  1 1; 

I RIM 

= 0 for  coordinated  turn, 

= 1 for  pull  up  or  push  over 


% 


Z 


g's 
deg 
m ( f t ) 


% 


t 


Z 


Z 


deg 


24 


r 
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TABLE  II  (Continued) 

I INPUT  DATA  VARIABLE  LIST 


Card 

FORTRAN 

Variable 

Descript  ion 

Units 

39  j 

XT(22) 

— 

(not  used) 

23 

xT 

Inertial  accerlerat ion  (+North) 

m/ sec ^ (ft/sec^) 

24 

yT 

Inertial  acceleration  (+East) 

m/sec^  (ft /sec  ) 

25 

*T 

Inertial  acceleration  (+down) 

2 2 
m/ sec  (ft/sec  ) 

26 

1 

(not  used) 

27 

c 

Speed  of  sound 

m/sec  (ft/sec) 

28 

a 

Local  atm.  density  ratio 

40 

XD(  1 ) 

r x 

N (lbs) 

2 

Allowable  errors  in 

Y 

N (lbs) 

trim  values  of: 

3 

Z 

N (lbs) 

4 

M and  N 

N - m ( f t . 1 bs) 

5 

^ L 

N • m ( f t . 1 bs) 

6-7 

(not  used) 

41 

XI  ( 1) 

n 

max 

Max  number  of  trim  iterations 

2-3 

— 

(not  used) 

4 

Ai 

Linear  velocity  derivative 

m/sec  (ft/sec) 

I 

■ increment 

i 5 

1 (set  equal  to  1.0) 

6 

a2 

Angular  velocity  derivative 

rad /sec 

increment 

7 

— 

(not  used) 

42 

XI (8-11) 

— 

(not  used) 

12 

Ax  j 

Initial  trim  variable  correction 

I deg  or  cm  ( In) 

increment  limit 

1 3 

Axi  . 
min 

1 

Minimum  trim  variable  correction 

deg  or  cm  ( in) 

incremen  t 

1 

f'i  '«  -fcr 
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TABLE  1 1 (Cunt  Inued) 
INPUT  DATA  VARIABLE  LIST 

1 FORTRAN 

Variable 

Descript  ion 

Units 

14 

A 

max 

[ 

Max  force  or  moment  error 
for  correction  increment 
limit  halving 

N (lbs)  or 
N-m  (ft. lbs) 

Trim  Correction  Limit  Halving:  At  each  trim  iteration,  corrections, 

Axt,  are  calculated  for  each  control  variable.  If  any  of  the  corrections 

is  greater  than  the  limit,  all  are  ratioed  down  such  that  the  largest  is 
equal  to  the  limit.  Additionally,  if  after  any  iteration  the  force  and 
moment  errors  are  all  less  than  XI  (14),  the  correction  limit  is  halved 
but  never  decreased  to  a value  less  than  XI  (13).  This  process  enhances 
the  convergence  to  a trim  solution. 


XI (15) 
16 


Control  variables  used  for  trim 


l:6T 

= 5:i|) 

= 9:6T2 

2 = «s 

= 6:0 

= 10: *0 

3:6y 

= 7:0 

= H:«0 

4:6r 

= 8:<5Xl 

21 

TS( 1-7) 
TS (8- 1 4 ) 
YR  ( 1 ) 


(not  used) 

Specified  times  during  a maneuver 
at  which  stability  analyses  are 
to  be  performed 

Number  of  reaction  jets  (10  max) 
(not  used) 

Coefficients  relating  RCS  thrust 
available  vs  engine  thrust 


%/10 J N (lbs) 


First  n vectorable  nozzle 

KL»o 

thrusts  effect  available  RCS 
thrust 


(not  used) 
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TABLE  II  (Continued) 
INPUT  DATA  VARIABLE  LIST 


Card  FORTRAN  Variable 


Descript  ion 


Units 


The  next  20  cards  consist  of  10  groups  of  2 cards  each  to  describe  each 

reaction  control  jet  nozzle.  If  fewer  than  10  nozzles  are  simulated,  only 

2n  of  these  cards  are  necessary. 

R J 


47+ 

2 ( n- 1 ) 


48+ 

2 ( r - 1 ) 


XR(14 
(n-1 )+l) 

2 

3 

4 

5 

6 


XR(  14 
(n-l)+8) 


67 


YL(1) 


2-7 


FS 


RJ 


BL 


RJ 


WL 


RJ 


RJ 


RJ 


9 

r 

' RAMP 

10 

T 

inaXj 

11 

T 

max  2 

12 

T1 

1 3 

T 2 

14 



Location  and  orientation  of 

H*1*1  RCS  nozzle  (n<nDT) 

' KJ 


Controller  for  n1"*'  nozzle 
(=  1:6S>  = 2:6Y,  = 3:<5R 


Constants  used  to  describe 


Tr  vs  6 


) 


RCS  thrust  response  time 
constants 


(not  used) 

Number  of  vectorable  jet 
nozzles  (6  max) 

(not  used) 


cm  (in) 

cm  (in) 
cm  (in) 

deg 

deg 


cm  (in) 
cm  (in) 

cm  (in) 
N (lbs) 

N (lbs) 
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TABLE  II  (Continued) 

INPUT  DATA  VARIABLE  LIST 

The  next  12  cards  consist  of  6 groups  of  2 cards  each  to  describe 
each  vectorable  nozzle  jet  associated  with  a lift  or  lift/cruise  engine. 

If  fewer  than  6 nozzles  are  simulated,  only  2n  of  these  cards  are  necessary. 


Ca  rd 

FORTRAN _ 

Var  iable 

Description 

Units 

68+ 

XL  (14 

FSJ^ 

\ 

cm  (in) 

2 ( n- 1 ) 

( n-1 )+l ) : 

2 ' 

BLj  I 

’ Location  of  ntr*  vectorable 

cm  (in) 

I 

nozzle 

3 

WLj  j, 

cm  (in) 

4 , 

o 

T 

Orientation  of  n^1  nozzle 

deg 

J 

1 

> (if  ,J  = 0,  <p  and  9 are  used; 

5 

♦j  j 

if  J 5*0,  and  9 are  used) 

deg 

6 

. 

deg 

7 

J 

Orientation  indicator 

b<++ 

' XI.  ( 14 

2 

2('i-l) 

( r-1 )+8) 

H., 

Angular  momentum  at  max 

kg'm  /sec 

thrust  (per  nozzle) 

(slug- ft^/sec) 

j 

9 ; 

1 

vH  1 

Orientation  of  angular 
> momentum  vector 

deg 

10 

| Oh 

J 

deg 

11 

j 

A 

\ 

1 

12 

i 

B 

* Coefficients  for  Hj  vs  Tj 

%/N  (lbs) 

13 

c j 

d 

%/N2  (lbs2) 

14 

i 

(not  used) 

80 

XS  ( 1 ) 

1 AaH/is 
1 

•v 

2 

Af*y/6a 

i Control  effectiveness 

parameters 

3 

A«v/ <Sr 

> 

4-7 

— 

(not  used) 

HI 

8-14 

— 

(not  used) 

28 
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c.ird(_s)_  8 3 : Time  History  Control  and  Disturbance  Inputs 


Variables:  NKXT,  .1,  XClT(l) X0IT(6) 

Format:  II,  IA,  5X,  6FI0.0 

NEXT  is  a test  word  which  may  be  either  0 or  1.  Up  to  20  cards 
of  this  type  may  be  used  for  a given  run.  All  except  the  last 
of  these  cards  should  have  NEXT  = 1;  the  last  card  should  have 
NEXT  = 0.  The  allowable  values  of  J and  corresponding  definitions 
of  XCIT(I)  are  listed  in  Table  III. 

HUT PUT  DESCRIPTION 

Program  output  is  categorized  into  seven  sections.  The  first  three 
sections  are  concerned  with  input  data  and  the  trim  calculation  and  are 
iiways  printed.  The  fourth  section  is  printed  following  a stability 
analysis.  The  fifth  section  contains  time  history  output  data  and  the 
sixth  and  seventh  sections  are  outputs  of  the  print  plot  and  curve  fit 
options,  respectively.  Output  for  a sample  run  is  presented  in 
Appendix  B and  is  referenced  in  the  following  discussion. 

Input  Data 

All  input  data  for  a given  case  is  grouped  and  printed  as  shown  in 
figures  B-3  and  B-A.  This  provides  a convenient  reference  for  each 
omputer  run. 


S’ 

K 


. r It  erat  ion  Data 

Figure  B-3  is  an  example  of  the  output  produced  for  each  trim  iteration. 
The  first  line  of  data  lists  the  current  values  for  each  of  the  six  trim 
rontrol  variables,  VAR(I).  The  units  are  percent  or  degrees  as  applicable. 

The  next  grouping  of  data  presents  the  total  vehicle  forces  and  moments  in 
body  axes  as  well  as  a breakdown  of  the  contributions  of  each  major  component: 
right  wing,  left  wing,  horizontal  stabilizer,  fuselage,  right  and  left 
: ix.ed  nozzles,  RCS , veetorable  nozzles,  inlet  momentum,  vertical  stabilizer, 
weight,  engine  angular  momentum  and  propulsion  induced  aerodynamics. 

Units  tor  this  matrix  are  newtons  and  newton • meters . Immediately  following 
this  matrix  is  the  normalized  lacobian.  This  matrix  provides  an  Indication 
of  relative  forces  and  moments  produced  by  motion  of  each  of  the  trim 
controls.  The  last  two  lines  on  this  page  of  output  show  the  correction 
ratios  applied  to  the  predicted  control  increments  if  any  of  them  have  exceeded 
the  specified  maximum,  Axj. 

I rim  output  Summary. 

Once  .<  trim  solut ion  tuts  been  reached,  all  pertinent  parameters  are 
summarized  >n  >ru  page  of  output  (figure  B- 7 ) . All  data  on  this  page  are 
in  standard  units  (newtons,  metres,  degrees,  seconds)  as  ippl icable  unless 
otherwise  noted. 


10 


i 
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TABLE  III 

CONTROL  AND  DISTURBANCE  INPUT  DEFINITIONS 


XCIT  (I) 


Move  fixed  nozzle  engine  throttle  1 Start  time,  sec 


Move  longitudinal  stick 


2  Rate  1,  cm/sec  (in/sec) 


Move  lateral  stick 


3  Stop  time,  sec 


Move  rudder  pedals 


4  Start  time,  sec 


Move  vectorable  nozzle  throttle  1 5 Rate  2,  cm/sec  (in/sec) 

Move  vectorable  nozzle  throttle  2 6 Stop  time,  sec 

Move  angle  lever  1 
Move  angle  lever  2 


© © 


9 Vertical  ramp  gust 


1  I Distance  to  start  of  gust,  n (ft) 


II  Horizontal  ramp  gust 


2  | Max  gust  velocity,  m/sec  (ft  sec) 
(+  down  or  North) 


3 First  ramp  length,  m (ft) 

4 Distance  gust  is  steady,  m (ft) 

5 Second  ramp  length,  m (ft) 


6  | Incremental  gust  velocity,  m/sec 
(ft/sec) 


31 


*l.  * ■'vrati^r  rv 


F l 
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TABLE  III  (Continued) 

CONTROL  AND  DISTURBANCE  INPUT  DEFINITIONS 


.1 

Descript  Ion 

I 

XCIT  (I) 

1 3 

Change  wing  flap  deflection 

1 

Start  time,  sec 

2 

Rate  1,  deg/sec 

3 

Stop  time,  sec 

4 

Start  time,  sec 

5 

Rate  2,  deg/sec 

6 

Stop  time,  sec 

14  i 

Vary  fixed  nozzle  engine  thrust 

i 

Start  time,  sec 

2 

Index  (see  4 and  5) 

I 

3 

Rate,  N/sec  (lb/sec) 

4 

Stop  time,  sec  (index  = 0) 

5 

Final  thrust  value,  N (lbs). 

j 

(index  4 0) 

6 

= 1:  left  jet,  = 2:  right  jet 

IS 

| Vectorable  nozzle  engine  thrust 

1 

Start  time,  sec 

; failure 

2 

Stop  time,  sec  (thrust  = 0) 

3 

Nozzle  number  (1  to  6) 

4-6 

(not  used) 

17 

Yaw  damper 

1 

Start  time,  sec 

2 

Yaw  rate  gain,  Kr,  cm/deg/sec. 

( in/deg/ sec ) 

3 

Stop  time,  sec 

4 

Time  lag,  t,  sec 

5-6 

(not  used) 

18 

Roll  damper  and  attitude 

1 

Start  time,  sec 

hold  ($=  0) 

2 

Attitude  gain,  K*,  cm/deg  (in/de 

| 3 I Rate  gain,  Kp , cm/deg/sec  ( in/deg/sec) 
33 
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TABLE  III  (Continued) 

CONTROL  AND  DISTURBANCE  INPUT  DEFINITIONS 


Description 

1 

XCIT  (I) 

4 

Stop  time,  sec 

5 

Time  lag  for  both  feedbacks 

x , sec 

6 

(not  used) 

Pitch  damper  and  attitude 
hold  (6  = 60) 

1 

Start  time,  sec 

2 

Attitude  gain,  , cm/deg 

(in/deg) 

i 

3 

Rate  gain,  Kq,  cm/deg/sec 
( in/deg/sec) 

4 

! 

Reference  attitude,  0O,  deg 

5 

Stop  time,  sec 

6 

Time  lag  for  both  feedbacks 
r , sec 

Sinusoidal  control  movement 

1 

Start  time,  sec 

2 Frequency,  Hz 


3 

Amplitude, 

cm 

( in) 

4 

Stop 

t ime , 

sec 

5 

Control  to 

be 

moved 

1: 

5'j' 

5: 

6t1 

2: 

5S 

6: 

6t2 

3: 

«Y 

7: 

69l 

4: 

5R 

8: 

fi02 

6 

(not 

used) 

Change  time  history  output  1 : Time,  sec 

print  frequency 

2 New  NPRINT 

3 Time,  sec 


34 
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TABLE  III  (Continued) 

CONTROL  AND  DISTURBANCE  INPUT  DEFINITIONS 

J Description  I XCIT  (I) 

A 

5 

6 


New  NPRINT 
Time,  sec 
New  NPRINT 


'a  -A- 
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St  ,ibi_!  i tv  Ana  lysis  Out  put 

If  a stability  analysis  is  requested,  the  force  and  moment  derivatives 
tor  each  of  the  eight  control  variables  and  three  vehicle  attitudes  are 
printed  as  shown  in  figure  B-8.  The  first  matrix  is  in  units  of  newtons  or 
newton-metres  per  centimetre  of  control  or  radian  of  angle.  The  elements 
. - f the  second  matrix  are  normalized  by  vehicle  mass  for  the  force  derivatives 
and  vehicle  moment  of  inertia  for  each  of  the  moment  derivatives. 

Results  of  the  finite  difference  calculations  for  the  stability 
derivatives  are  printed  as  shown  in  figures  B-9  through  B-ll.  Here  the 
values  of  VAR(I)  are  u,  w,  q,  v,  p,  and  r each  of  which  is  incremented  in 
turn.  The  resulting  forces  and  moments  (both  total  and  incremental)  are 
: tinted  in  units  of  newtons  and  newton-metres.  The  stability  derivatives 
ire  calculated  by  dividing  each  incremental  force  and  moment  by  the 
■ iTipropr iate  velocity  increment.  The  results  are  summarized  as  shown  in 
figure  B-12.  Again  the  second  matrix  has  been  normalized  by  mass  and 
inert  ia . 

The-  small  perturbation  stabilty  analysis  output  is  presented  on  two 
pages:  longitudinal  characteristics  (figure  B-13)  and  lateral /direct ional 

har.if ter ist ics  (figure  B-14) . The  output  format  for  both  is  identical 
with  the  coefficients  of  the  small  perturbation  equations  printed  first, 
following  this  are  the  roots  of  the  characteristic  equations  and  their 
associated  periods,  natural  frequencies,  damping  and  times  to  halve  or 
double.  The  last  set  of  data  is  the  roots  and  gains  of  the  major  transfer 
function  numerators.  The  gains  are  in  units  of  met  res/second , radians  and 
radians/second  per  centimetre  of  control  deflection. 

ape  History  Output 

During  a time  history  calculation,  at  the  specified  print-out 
interval,  the  aircraft  state  is  summarized  as  it  was  for  trim  (figure  B-13). 

Time  History  Plotting 

Figure  B-16  is  a portion  of  a sample  time  history  print  plot  output. 

Up  to  three  dependent  variables  are  presented  versus  time  with  symbol 
notation  and  scaling  as  indicated  on  the  plot.  Time  in  seconds  is  scaled 
down  the  left  margin. 

Curve  Fit  Output 

Typical  output  from  the  least  squares  curve  fit  option  is  presented 
in  figures  B-17  and  B-18.  The  output  is  self-explanatory  with  the  possible 
exception  of  "COEF  OF  CORR"  which  gives  an  indication  of  the  accuracy  of 
the  particular  curve  fit  (a  value  of  one  represents  an  exact  fit). 
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PROGRAM  VSTOL  I INPUT*  OUTPUT  tTAPtJf  TAPF.S5  INPUT*  TAPEbsOUTPurt  TAPri  I 

c 

C N.A.n.C.  VSAC  PROGRAM 

C jET-LlFT  V/STOL  STABILITY  AND  CONTROL  ANALYSIS 

c 

C PROGRAM  CONTROL  suction 

C Tm[S  program  DEPENDS  (/RON  TmL  vAlU*-  of  NPAWT  first  to  df  T t rh  I n»f 

C ITS  EXECUTION  PROCESS. 

C WHEN  TwO  VALUES  0 f nrAhT  USE  ThE  same  subroutines  t he  paths  Ta<En 

C in  The  SUBROUTINES  are  OlFFFRtNT  DEPENDING  UPON  THE  VALUES  OF 

C The  0 T nf R vARIAhlfs  In  ThE  RROHLEm. 

C NPART  = 1 - TRIM  ONLY 

C ? - trim,st ability  analysis  and  time  history 

C 3 - PRINTER  PLOTS 

C A — calcqmr  plots 

C 5 - NOT  USED 

C 6 - REVISE  oata  ANO  RUN  AS  for  npar  t = ? 

C 7 - TRIM  ANO  STABILITY  ANALYSIS 

C b - NOT  uSEp 

C S - REVISE  data  ANO  RUN  Trim  ANO  STABILITY  ANALYSIS 

C 10  - SAME  as  NPART=B  USING  PREVIOUS  TRIM  AS  START  VALUES 

C II  - LEAST  SQUARES  CURVF  FIT  OF  TIme  hISTORy 

c 

COMMON  /TOPLOT/  AH(3)  ,AL  (3)  tExiT » ICOM(aO)  *IPSNt 
1 NPAPT «NVARA ,NVARB*NVARC*NSCALE 

] ,NVAOS *NPR INT ,nT IME 

C •ThE  FOLLOWING  SET  SI/E  ALLOCATIONS  FOR  COMMON  BLOCKS* 

COMMON  /CO*'T«/  CCN(4<*) 

COMMON  /FORCE/  F OR  ( 7* ) 

Common  / F n a y / F OR  y ( b 0 0 ) 

COMMON  /* vaRTR/  KVAf7b) 

COMMON  /LJ^TS/  XLJEU30) 

COMMON  / m a N A l / xmana(w7) 

Common  /manarO/  xman(<*3) 

COMMON  /PLOTO/  PL0(**?0) 

COMMON  /rjFTS/  RJE(i?b) 

COMMON  /ROmAN/  ROM(<>j) 

COMMON  /STaMAN/  S T A m ( 3 o ) 

COMMON  /STANPO/  STA/23) 

COMMON  /STaRAN/  s T Ap ( 1 a S ) 

COMMON  /STRD/  S T H ( <•  o ) 

COMMON  /STRlArt/  STR(7«*) 

COMMON  /STRIMA/  S TR I ( ? 0 ? ) 

COMMON  /TRONIC/  TR0(R4J 

C 

DIMENSION  lPUM(?bb) 

WRITE * / 30 ) 

CALL  wROTl 
NPLOT=0 
nva«s*o 
E *IT=2, 

AH  (?)  r(j  , 

13  CONTINUE 

READ  tb*2?0I  NP APT #NPR I NT  «NSC AlE * NV AP A ♦ AL  ( 1 ) • AM ( I ) , 

1 NVAPR*AL ( 2 ) *AH(?)  *NVArC*al (3)  *AH(3) 


VSTLu  m l 
VSTLOO  )2 
VSTL0003 

V $ T L 3 0 • M» 
vstlooog 
VSTL  OOOo 

V S T L 

VSTLOO Os 
VSTl  000* 

V STLOO  1 u 
VSTL30 i i 
VSTL  00  l <r 
VSTlOO  1 3 
VSTlOO  14 
VSTLOOiS 

V S T L C 0 1 r> 
VSTlOO  I 7 
VSTLOO  1H 
VSTlOO  IB 
>/  S T l 3 
VSTl 0 02 1 
VSTLOO// 
VSTlOO? J 

vstl: 

VSTL002G 

VSTlOO?6 

VSTL0027 

vstloopb 

VSTlOO?5* 
VSTL0030 
VSTL0031 
VSTLC03/ 
VSTLOO. 3 3 
VSTL003-* 
V ST l 0 0 3t> 
VS7L0037 
VSTlOO 3R 
VSTlOOjR 
VSTLOOwO 
VSTLOO**  * 
VSTlOO*? 

V S T L o 0 4 -3 
VSTL00A4 

V S T L 0 0 •*  G 
VSTLO  - 

VSTLOOhT 

VSTLO  0*-R 
VSTlOO** 
V«^Tl 

VSTLOO*  i 
VSTLCOS? 
VSTlOO S3 
VSTLOOSh 
VSTLOns^ 
VSTLOOst 
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IE  (EOF  (El)  ) 190.20 

20  IE (NPAPT .GT . 1 1 .OP.NPAPT.LT . 1 > GO  TO  180 
IF  (Ex  I T ,Nf  .0  . .AnO. NPAPT. EG.  2 0)  GO  TO  1 S» 0 
NTI>*E=-1 

IF (NPOIKT .LE.O)  NPPINTsl 
E XIT=V. 

GOTO  (30, 40 . i 20 . 1 JJ.180*lP0,lS0»iH0.160»lb0. 170), NPAPT 
30  CONTINUE 
CALL  STAOT 

IE (EXIT.Nf.O.)  GO  TO  13 
CALL  Tnl«* 

IE (Ex IT.ne .0. I GO  TO  13 
CALL  INIT 
GO  TO  13 
*0  CONTINUE 
CALL  STALt 

IE (EX  I T .NE . 0. ) GO  TO  60 
CALL  TP  I M 

IE (EXIT.NE .0. ) GO  TO  60 
50  CONTINUE 
CALL  NANU 

IE (EXIT.ne. 0.. OP. NVAPS.EO.O)  GO  TO  13 
CALL  STAR 

IE (EX  I T ,FO. 0. I GO  TO  50 
A*=99599999. 

H9ITE  (3)  IPSN.A*, I0UM 
GO  TO  13 
60  CONTINUE 

PE  AO  (5,220)  NPART .NPPInT .NSCALE .NVAPA  . AL ( l ) • AH ( I ) . 

1 NVAPB , AL ( 2 1 tAH(2),NVA»C,AL(3),AH(3) 

IE (EOE (5) ) 150, TO 
TO  CONTINJE 

IE (NPAPT . FO. 3. OP .NPAR T.E0.6I  GO  TO  60 
IF (NPAPT ,f 0. 1 0 ) GO  TO  190 
IE (NPAPT. EQ. 1 1 ) GO  TO  80 
GO  TO  20 

60  PE  AO  (5.200)  < IDLfM  ( 1 1 ) • 1 1 = 1 .NVAPA) 

IE (NvAPP.EO.O)  GO  TO  100 
DO  90  Iu=l .NVARH 

P£AO  (5.200)  NNUM.Nf).  ( I0UM  ( I I I . I 1 = 1 .NNUM) 

90  CONTINUE 
100  CONTINUE 

NO  = A L (2)  • . 1 
IE(ND.EG.O)  GO  TO  60 

oo  no  i j = i . no 

PE  AO  (6.200)  (IDl)M(II)  .11  = 1,3) 
l 10  CONTINUE 
GO  TO  60 
1 20  CONTINUE 
PExINO  3 
CALL  PPLOT 
GO  to  13 
130  CONTINUE 
PE* I NO  3 

CALL  CPLOT (NPLOT 1 


VSTL0057 

VSTlOOt>8 

VSTL006* 

VSTlOOgO 

VSTL0061 

VSTl0082 

VSTlOOnj 

VSTlOOnl 

VSTLOObb 

WSTlOOhN 

VSTlOOGT 

VSTLOObb 

VSTL00-19 

vstlooto 
vstlo  0 7 i 

VSTL  0 0 72 
VSTlOOTj 
VSTlOOT*. 
VSTL0076 
VSTL0076 
VSTL0077 
VSTlOO  78 
VSTL0079 
VSTLOOhO 
VSTlOOHI 
VSTL0062 
VSTLOOPJ 
VSTLOOo* 
VSTL0085 
VSTL  0 03b 
VSTL0037 
VSTlOOHH 
VSTL0039 
VSTL0090 
VS7L  0 09 1 
VSTLO 092 
VSTL0093 
VSTL009* 
VSTL0096 
VSTL009b 
VSTL0097 
VSTLOOPh 
VS  Tl  0099 
VSTL01O0 
VSTL01O1 
VS  TL  0 1 02 
VSTLO 103 
VSTL010* 
VSTL0105 
VSTLO 1 Ob 
VS7L0107 
VSTL0108 
VSTLOl 09 
VSTL01 10 
VSTLOl 1 1 


A-  A 
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GOTO  13 

VSTlOI 12 

1*0 

CONTINUE 

VSTL01 13 

N V AR  S - 0 

VSTLO  1 1 * 

GOTO  *0 

VSTLOI It 

150 

CONTINUE 

VSTLOI 1 6 

CALL  START 

VSTLOI  1 7 

IFlExIT.Nf .0.) 

GO  TO 

13 

VSTLO 1 1 H 

CALL  Trim 

VSTLOI 19 

call  i n i t 

VSTL0120 

call  star 

VST L 0121 

GO  TO  13 

VSTL  0 1 22 

160 

CONT I NuE 

VSTLO 123 

CALL  START 

VSTLO 12* 

IF  (E  X I T .NE . 0 . ) 

GO  TO 

190 

VSTL0126 

CALL  trim 

VSTLO 126 

IF  <EX IT.NF .0.  ) 

GO  TO 

190 

VSTLOI 27 

CALL  init 

VSTL0123 

IF (NVARA .ME . 0 ) 

CALL 

STAR 

VSTL012* 

iFiexir.NF.o.i 

GO  TO 

190 

VSTLOI 30 

GO  TO  13 

VSTLO 1 31 

170 

CONTINUE 

VSTLOI 32 

REWIND  3 

VSTlOI 33 

call  curvet 

VSTL013- 

GO  TO  13 

VSTLO 1 35 

160 

WRITE  (b.210)NPART 

VSTLO 1 36 

190 

IF (NPLOT.ne.O) 

CALL 

PLOT (10. .10. 

*999) 

VSTLO 1 37 

STOP 

- 

VSTLO 1 36 

200 

FORMAT  (1*15) 

VSTLOI 39 

210 

FORMAT  ( 1 H 1 . *6  X 

.•V/5T0L-AIRCRAFT 

9 I G I 0 BODY  DYNAMIC 

analysisi*/////vstloi..o 

2 23m  DATA 

ERROR  ..  NPART  = 

* IB) 

VSTL01*1 

220 

FORMAT  (I?. 21*. 

3(I5.5X.2FS.0> ) 

VSTL01*2 

230 

FORMAT  ( 1 Hi  ) 

VSTLO 1*3 

END 

VSTlOI** 

K 


1 

1 

2 

1 

2 

3 

1 

2 

3 


I 


SUGROUT  INF  AJACOH 

common  /FOOCF/  xF.TI  (12)  .YF,T2<9)  .ZF.T3U1)  , 

QL . T*  < 12)  «QM. TS I 12)  »QN 

COMMON  /STRIAH/  e (74)  ,F (6) .X(b>  .DL . DM , ON, OX , D Y . OZ . I X » I Y » I Z . 

PD(6.7).DTR.EPD«tRR(6)»KMl.MH0.H12.SPD(h,6.1>. 

T6 ( 230 ) . XCON ( o3 ) 

COMMON  /STP IMA/  AYtVH.AOW.IXZ.XX0.YYD.ZZ0.  A (.OF  .APFP.AYFP.COWL. 

COLL  ( 6 ) . C YCF  ( 3 ) . C yCL  ( 3 ) .DIST.KCIT(20)  .PEDAI3I  . 
TIME.TMAX.XC1T  ( EO . 6 ) .AlGEZ.AlGE  1 . AlGE  2 . CGST  A , 
T7(?8I  . ALOE  3 

COMMON  /maNAL/  o«AP.PED.Owr,#ALtL.TAXL.TAxP.XAwG.7AwO.ALCYP. 

ALF IN. ALLWO. ALPwO.CDELE.CDF IN.CDLwO .COHwO.CLElf . 
CLF IM.CLLwG .CLPwO.CWlNG .CYCP1 . C YCp2 . RANGE . w&COL • 
T8 ( 15) . ALECR 1 . ALGFPO 

common  /POMANI/  P I . zz  • AL  T . T , APDO.  APOD  . A YOn.OTPH.GMAX  V.PA  TE  1 
COMMON  /m4Napo/  I . V ,NWAG  . TDElT  .hGiiSTE  .HGUSTF  , hGuST  w . VGuSTE  . VGtiSTW 
YGUSTF .GF WO .GLAT .GvEPT.VXH.VZH.APO.VYO.ARO.AYn, 


AjACOnol 
AJAC0002 
AJACOOO J 
A JACOOO* 
AjACOOi'b 
AjACOnno 
AoACOO'-.T 
AjA COOES 
AJACOO 09 
A JACOO 1 0 
AJAC001 1 
A JACOO 12 
AJAC001 3 
AjACOO 1* 
A JAC  0 0 I 5 
A J A C 0 0 1 6 
AJACOO  1 7 
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. * I 


Y * 


s’ 

K 


c 


c 


2 C0LSTK,CYSTK1,CYSTK2.PEDAL.AYE.APE.APE 

COUPON  /STANRO/  J.w .LINK .QELE .vSNO.YFIN (21 . 7EEL (2)  . CONO 1 . Sw I NO . 

1 PtLGH2.Pv.GECl 

COUPON  /TOPL0TV  AH < 3 ) . al I 3) .EX  I T . I COm (20 > . IPSN 
COMMON  /HjETS/  NJETP  . XSTK  ( 3)  . XU  l 1 0 ) .XI)  ( 10  ) . x«  ( 1 0 ) . TPQS  ( 1 0) 

Common  /CON TP/  aD1SO(3).APATE(3I«DELTA(M.Thh(2),ppCT(J),XSYS(?B> 

1 .nTp^m 

DIMENSION  VAP (11) 

EQUIVALENCE  (VAP ( 1 ) .COLSTK ) 

CYC»1 = C Y S Tx 1 »C  Y CE (3) .CTCE (2) 

CYCH2=CYST*2«CYCL<3).CYCLt2> 

PED=  P£Dal®pE0A ( 3) »peoa ( 2) 

WGCOL=AO« 

XSTk  ( 11  -CYC01  •LiTPP 
XSTK (2) =CVCP2*0TPP 

XSTk ( 3) =PEO*PEJA ( 1 ) / (PEDA ( 3) *100  • ) 

ALGE  3 = XC0n (2H) / { 0 TPP*2 • ) 

AOISP ( 1 ) =ayF*DTpp 
AOISP (2) = ape*OT  pp 
A0ISP(3)=ape«DTpp 
APATE ( 1 ) = A yO#0  T&P 
APATE (2) =APO°DTRP 
APATE ( 3) =apD»0TRR 
NTH IM 1 SNTP  I M 
IE (L INK.Eq.3)  NTPIM[=1 
CALL  CONTOl ( NTP I m 1 ) 

10  ntpim=NTRImi 

IE  (LINK. EQ. 3)  NT  P I m =2 
DEL*LE=DElTA ( 1 ) «XSYS ( 1 ) 

ALECPl=ALGE7«OtLALE 
DEL  A I L = DE  L T A (2) *XSYS (2) 

AlCyP  = OE  L a J l 

OELPUD  = DtLTA(J)<>XSYS(3) 

algepd=alge.del»uu 

call  VP3D  < XXO. YYJ. 770. A YE . AP£ .ARE . VX0. VYB. VZ8.-1 > 
ieilink.eq.2)  call  oeftpp 

call  anal 

IEIExIT.NE.O.)  PFTUON 


E (!) 

= 

XF 

- DX 

F (2) 

= 

YF 

- OY 

E (31 

7F 

- CZ 

F (4) 

= 

ON 

- DN 

F (S) 

= 

OM 

- DM 

F (6) 

= 

OL 

- DL 

IE ( CONU 1 • L E • 1 .8. AND. J.NE.l ) RETURN 

IE (CONOl .LE . I .S.AND.L INK .E0.3)  RETURN 

IF (CONOl .EO.O.)  RETURN 

call  YtfVP  ( I , VAP.KM1  ,PO.  TAXL  . TAXR  ) 

CALL  » PEM 

RETURN 

END 


AjACOOlfl 
AJAC001N 
A JACO  020 
A JAC  0 0 2 1 
A JAC0022 
AJAC0023 
AJAC002A 
AJAC002S 
A JACOOPb 
AJACU02T 
AJAC0028 
AJAC002Y 
A JACOO  30 
AJAC0031 
AJAC0032 
AJAC0033 
AJAC003* 
AJAC003S 
AJAC003H 
AJAC003T 
A JAC003H 
A JACO 03N 
AJAC0040 
AJAC0041 
AJAC0042 
AJAC0043 
AJAC0044 
AJAC004S 
A JAC  0 0 4 8 
AJAC0047 
AJAC0048 
AJAC0049 
A JAC0C50 
AJAC0051 
AJAC0052 
AJAC00S3 
AJACOOSh 
AJACOOSS 
AJAC00S6 
AJACOOST 
AJACOOSd 
AJAC005P 
A JAC  0 060 
AJACOOM 
AJAC0062 
AJAC0OH3 
A JAC0O64 
AJAC006G 
AJAC0066 
AJAC00O7 
A JAC0068 
AJACOONN 
AJAC0070 


NA0C*7b 313-30 


SUflPOUTINF  ANAL  t 

COMMON  /FORCE/  xF.xFHrG.XFLrG.AFFlF.XFFuS.XFHJET.xFlJET.XFRJ,  t 

1 XFLJ.XFGUN.XEFIN.xEW.XAOD.  t 

2 yF.yEFuS.yERjET.YFLJET.YFRJ.YFLJ.YFGUN.YEEIN.yFW.  i 

0 YAOD.  ‘ 

3 ZF.ZFRwG.ZFLWG.ZFELE.ZFFuS.ZFRjET.ZFLJET.ZFPJ,  t 

K 7FLJ.ZFGun.ZFy.ZAOO,  I 

5 QL.LPRG.LLRG.LELE.LFUS.LRJFT.LLJET.Rmrj.p ul  J.LGUN.) 

A LFIN.WGYRO.WmaoO.  < 

6 QM.MRwG.RLwG.MELt , mFUS.mRjET . ML JE T .PMR j , P»L J .MGUN . : 

B MFIn.PGYPO.PmaoU.  t 

7 QN.NPWG.NLwG.NELE .nFuS.NR JE  T ,nl JET , YMRj , Y«L J.NGUN.  I 

C NF In, YGYRO. ymaou  t 

COMMON  /manal/  Q.AP.PEO.QwG.ALtL.TAXL.TAXR.XAwG.ZAMG.ALCYP.  t 

1 ALF I N » ALL wG , ALRRU , COElE , CDF  IN , CDL wG.COH yG , CLfcLE • t 

2 CLF IN . CLLWG .CLPmG . Cm ING, CYCW 1 ,CYCR2,RANGE.wGC0L»  ! 

3 XAELE,XAFIN.XAE(Jb»XAjET.YAFIN,ZA£LF.ZAFIN»ZAF|jS«  1 

* YAFLF . YAFUS. YALMG . YAkwG, YAL JET . YARJET . Z A JET . < 

5 ALECRl .ALGFPD.hALFPI .YGUSTW.ZFL.G1 .ZFRYGl  l 

COMMON  /manAPO/  ItO.MWAG.TOELT,  nGUSTF  .HGUSTF  .hguSTw.VGHSTE  . VGnsTw  . t 

1 YGUSTF.GFmO.GLAT, overt. VAB.VZH.APD.VYM.APO.AYf).  t 

2 C0LSTK.CYSTK1.CYSTK2.PlDAL.AYE. APE. ARE  ■ 

3 .TLSTk (2) .THLSTk (2) ,DUM(6) .DELAP1  t 

COMMON  /STANPO/  J.W.lINK .OELE .VSNO. YF IN (2 > , ZFEL (2) .C0N01 .Sw ING.  : 

1 PILGM2.PWGEL1  < 

COMMON  /STAPANZ  C3.C4.RR.CLP.CLR.0CD.00L.DQN.CLfl0.CNP0.FTA0.NjFr,  i 

1 QF IN.CLBCL, YFS ( 14) • CNrtCL • CNPCL » CNRCO . CN»CL . C0L<S . t 

2 03ELE  .FNSRC  .LRING.RPIST.  YAERO  ( 3 1 ,3)  .APRJET.  arc,  jet  . < 

3 AYBjFT.Cf.PCDl.CNPCOP.COLJET.nXMGEL.DZRGEL.ETAQMX.  i 

4 P WGWK 1 .RCR ING.SR INGH.ANGR , ANGL , OFL  AP  ( 

COMMON  /TOPLOT/  AH (3) . AL < 3) .ExI T . ICOM (20 ) . IPSN,  t 


COMMON  /Fopy/ 


NPAPT.NO  AHA, NY ARb.NVAMC, NSC  ALE 
.NVARS.NPRINT.NT I ME 
Y (4. 150) 


COMMON  /PJFTSZ  NJETP, XSTK (3) ,xO (10) ,XD (101 .XP ( 10) ,TPOS ( 10) . 

1 TNEG(10),xAjETP(10).yajETP(10).ZAjETR(10). 

2 AYbJTR(lO) .APfljTR(lO) .JTHCONllO) 

3 .XACT.TPCTA.TPCTb 

COMMON  /LJETS/  NJETL.XAJETL (h)  .VAJETL (h)  .ZAJETL (b) .APpjTL (b)  . 

1 ARB JTL (fe) .CONL J 12 ,5) .NCONL <b).XLT(2).XLTH(2) 

2 .AYBjTL(b) .ATT (b) ,ANG(b) .PSIANG(b) .TMEANG(b) , 

3 ANGA (6) .ANGH (b) , TLJET (b) . ANGC (b) 

COMMON  /STRIAB/  TEMP (240) ,XES (35)  .TEMPI (49) , YRG (21 ) , YEL (21  I . 

1 vFN ( 2 1 ) 

COMMON  /STAMAN/  XX  .YY  • AYl  .RIY  . APBG.  APBG.ASEP.  AYBG.CGflL.OPU  .OPIZ  . 

1 P550  .AYDmx’.OEL  T2.DPIXZ  .MDE  L T . HGU3T  ,K  TC  TP  . R“ASS  . 

2 TWOPI , VGUST , ISTUP, XAGUN.YAGUN.YGUST ,ZAGUN,DELT2R, 

3 PO 10TR.RDELT 1 .RUELT2 

PEAL  LELE ,lF IN.LGUN.LL JET.LLrG.LRJET .LHRG.LFUS, 

1 MELE  , ME  IN.mgun.ml  jE  T.MLRG.MRJET  ,mRwG.mfuS.“FF(|S. 

2 NELE .NF IN.NGUN.NL JET .NLrG.NRJET.NRrG.NFUS.NFEuS 
D5«10./57.?95b 

OFLAP»OFLAPl 
WPrW»COS ( A PF ) 

XFr=-r»SIN( APE ) 
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ZFfc=fcP®COS  ( APE  | 

10  x*AC=«®vSNn 

APrO. 

Apnor=u, 

VA/PS'JsVJP^^J'vrP**? 

IF  (VxZ-iSG.FO.G  . ) GO  TO  20 

APsAT ANT  ( VZW • V XH ) 

APDOT* ( VAPAT ( 1 . 78 I -VZ«»Y  < 1 « 76) ) /VXZ6SQ 
C fc  l NG  t')U»TIONb 

20  CONTINUE 
ANGFsO. 

IF10fcG.LT. 01  GO  TO  =0 
X X«  ® V Ao*mghST  * ♦ APU® 7 AfcG 
ST  1 = v2-i-vf-iiST  APD®  x AfcG 
ANGP it  — C . 

I F | x X « .NE  . 0 . .OB  .ST  1 ,Nt . 0 . ) anGR«=ATAN2 1ST  1 . XXfc  ) 

AlGEO  = anopp.'»uCOL 
al®®g-algfo-alCyp 

CALL  CLCO  (ALPwg.CLUwG.CDHwG.XMAC.EXIT. 1) 

IFlEXl T.NE.O.)  GO  TO  ISO 
C0*C  3 
CL  = C® 

0CDB=0CD 

VEL5Qsxxw*®2«STl®®2 

0»*aOXO»VPlSO 

CALL  V.P2D  [ -CDPWG.-CLPWC-.  ANGPW.Ci  ,C2.  1 ) 

XFP*G=C 1 ®0O  W 
ZFP»G=C2®Oww 

CALL  XPPO  I X A«G.  Y A«wr,  • Z A»G  • XFSWG  . 0 , • ZF  R toG  . LP  WG  . Mp  WG  . N»WG  ) 

MPwG*MWi.G.  YfcG  I 21  > ®DFL  AP*OHw®YA£HO  ( 10, 1 > ®YWG  t lb)  ®QPW®YAEP0  < 10 . 1 ) 

all»g  = algpo.»i.Cyp 

CALL  CLCO  (ALLfcG.CLLfcG.CDLWG.XMAC, EXIT. 1) 

IFlEXIT.NF.O.)  GO  To  ISO 
CD=.S® (C  3. CD) 

C L w G ® .S®  1 C® ♦ CL  I 
AlWG® . S • 1 A L°fc  0 ♦ ALLfcG) 

OCO*.S® (OCOR‘OCDI 

CALL  VPfO  ( -COL ®G , ~ CLL WG , ANGR W , C 1 , C2 , 1 ) 

XF|_WG  = C 1 ®Q0» 

ZFLfcG=C2®0°fc 

CALL  XPBO  (XAfcii.YALfcG.ZAfcG.XFLWG.O.  .ZFLWG.LLWG.MLWG.NLWG  I 
MLWG=ML»G.YfcG(21 ) •DFLAP®Q»W®YAEPO(10.1).YwG(lS)®Q»fc®YAERO(10,n 
TS  = 0 . 

IFIVFLSO.NF.O.)  TS=S»INGH/SQRT ( VELSO) 

FF  sORfc  ®S  fc I NG 
Y A w > 0 • 

XZwfcSOMT IVf LSOI 


IF1VYH-YGHSTW.NE.0..0R.XZW.NE.0.)  YAW-ATAN2 I V YR-YGUST W . XZ W ) 

DOL  AND  DON  AWE  CONTRIBUTION  OF  EACH  WING.  NOT  TOTAL 
DQL*FA • i YAfc® 1ClH0.ClpCL*CLwGI .TS® (AyO®CLP®CLwG.AMD®ClP) ) 

DON  = F F • ( y a.® (CNM0*CNOCL*CLWG®®2l • TS® (AYO® <CNPCL®CLwG®®2»CNRCD< 
1 .AWO® <rNPCL®CL«G.CNPCDl“OCD) I ) 

CALL  VP  2D  (OOL.DQN.ANGPfc.DUL.OON. 1 ) 
l PWG*LPfcG*OOL 


CD) 
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ANAL00S6 
ANALOGS  7 
analOo->s 

ANAL00SN 
ANAL0OS0 
ANALOOsl 
ANAL00S2 
ANALOO&3 
ANALOGS® 
ANALOObb 
ANAL006S 
ANALO0S7 
ANAL  0088 
ANALOOfeS 
ANAL0070 
ANA  L 0 0 7 1 
ANAL  0 0 72 
ANAL  0 0 73 
ANAL007® 
ANALO  0 7S 
ANAL007S 
ANAL0077 
ANAL007M 
ANAL007P 
ANALOOfiO 
ANAL0081 
ANAL00R2 
ANAL  0 083 
ANALOOS® 
ANAL008S 
ANALOObb 
ANALOGS  7 
ANALOG 88 
ANALOObO 
ANALOOSO 
ANAL00P1 
ANAL00P2 
ANAL00O3 
ANAL  0 0 0® 
ANALOOPS 
ANAL  OOPS 
ANAL  0 0 9 T 
ANALOOPH 

analoopp 
analoioo 
ANAL  0101 
ANALO 1 02 
ANALO 1 03 
ANALO 1 0® 
ANALO 1 OS 
ANALO 1 Ob 
ANALO 1 0 7 
ANALO 1 08 
ANAL  0 108 
ANAL010P 


i 


It 


J 


t 
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LL»G=LLKG,nOL 

NRwG  = NPwC',r>GN 

NLWG=NL»G,nON 

*NGE*-PwGWK 1«CLWG 

IF f AHS i ALwG) .GT. 1 .S7«0 ) ANGE=0. 

ANGl=U. 

IF (VXR.GE .SO. I A-.'  J=AIJr)OT»*AELE«P><GELl/V*a 
IF(Al*G.FO.O.)  GO  ~ n 30 

anGE  = ANGE  - ANGl*tCL«G-Y»G(IS)*DFLAP)/AL«iG 

GO  TO  <*0 

CONTINUE 

ANGE=AngE-ANg1«vaERO (17,11 
CONTINUE 

Awake  = p w g w k 1 • C L w G 
A A =0  X kGE  L 

AwGEL  = at t»'?  (flZ»GEL»xa) 

OwGFL=SORT  (XX“°2*DZ*gEL»*2>  <>PCwING 

ANGL  E = a»AKF-AR*AwGEL 

OIS  sD«GEl»a«S (SIN ( ANGLE ) ) 

*I=OwGEL‘>ASS(COS(ANGlE)  ) 

HwAkE=.6B»sOBT(CO»(XI*.151I 

ETAO=0. 

IF (OIS  .LT.HwAKE  .and.  APS(ANGLE) .LT.HALFPI) 

1 ETAu=ETAOMX«SQRT (CO) / ( XI ♦ . 3) * (COS (OIS  •HALFPI/NWAKEl )•»? 
ELEVATOR  FOUATIONS 
IF (OElE.lt. 0)  GO  TO  SO 
ST  lsyza*  AOD®YAELE-APD,*xAELE-VGUSTe 
*XE  = VXti*AP0«7AELE-Ayr)*YAELE-HGuSTe 
VELS0  = XXE»«»2«ST1<>*2 

IF (VELSO.NF ,0. ) ANGF  = ATAN2 (ST  1 ,XXE) ♦ANGE 
ALEL*ALECP1«ANGF 

CALL  CLCO  (ALEL.CLELF.CDELE.XMAC.EXIT.2> 

IFIFxIT.nf.O.I  GO  TO  ISO 
0E*0ELE«VFlS0,*(1.-ETAQ) 

CALL  VP2D  (-C0ElE,-CLELE,AnGE,C1 >C2.I I 

xfcle=ci»of 

ZFELE=C2»0f 

CALL  XPPO  (XAELE.TAFlE.ZAElE.xFELE.O.  .ZFELE.LELE.MELE.NELEl 
HELE  = «ELE ♦yFL  < is  I oQE'rAEPO (10,2) 

FIN  EQUATIONS 

IF (OF IN.LT.O)  GO  TO  70 

STIsAWOoZAFIM-AYDOXAFIN-VYRaFnSkC.YGUSTF 

xxfmvxr,  apo»/af  in-ayp»yaf  in-hgustf 
of=ofin»(xxfn»xxfn»sti»std 

ANGF=0 , 

IF (OF.NE .0.  ) ANGF  = ATAN2 (ST1 ,XXFN) 

ALFIN=ANGF,ALGFPO 

CALL  CLCO  (ALFIN, CLFIN. cofin, XMAC,EXIT,3) 

IFIFXIT.NF.O.I  GO  TO  ISO 

CALL  VR2D  (-COFIN. CLFIN, ANGF , Cl , C 2 . - 1 ) 

XFFIN=C1*0F 
YFF IN=C2*0F 

CALL  XPRO  (XAFIN,YAFIN.7AFIN,»FFIN.YFFIN,0.  , lf  I N , MF I N , NF I N ) 
NF IN=NF IN.YFN ( 1 S 1 *QF » Y AE PO ( 1 0 , 3 ) 

FUSELAGE  FOUATIONS 


ANALO  1 1 0 
ANAL  0111 
ANAL01 12 
ANALO 1 1 3 
ANALO  1 1 * 
ANALO I IS 
ANALO 1 1 h 
ANALO 1 1 7 
ANALO 1 1 6 
ANALO  1 1 <y 
ANAL0120 
ANAlC 121 
ANAL0122 
ANAL0123 
ANALO 1 2A 
ANALO 1 ?S 
ANAL02  2S 
ANALO 1 27 
ANALO 124 
ANAL  0 1 2N 
ANALO 1 30 
ANALO 1 3 1 
ANAL0132 
ANAL  013  3 
ANALO  1 3*. 
ANAL  0 136 
ANALO 1 36 
ANALO 137 
ANALO 1 36 
ANAL013B 
ANALO 1 «0 
ANALO  1 •. : 
ANALO 1 *2 
ANALO 1 *3 
ANAL  0 ] 4 •* 
ANALO lob 
ANALO  1 
ANALO  2 *•  7 
ANALO  Ur 
ANALO 1 
ANALO ISO 
ANAL  0 2 bl 
ANALO 1S£ 
ANALO 1 S3 

anal  OIS** 

ANALO 1SS 
ANALO  ISO 
ANALO  1*5  7 
ANAL  0 ] S* 
ANALO 1 S^ 
ANALO 1*0 
ANALO  lfcl 
ANALO  1 ^ 
ANALO 1 S3 
ANALO  1 f}4 


A-  9 


r-  x 
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70  xxFivXrt-Hr.nST 
STlsYZH-VGtiST 
ANG1=0. 

0VX2B*0»(x»F*xxF.STl«STl'> 

IFIQVXZrt.NF.O.)  ANG1 =AT AN2 (ST  1 . XXF ) 

AR*ANG1 

S1*SIN(ANG 1-yFS ( 1 ) ) 

FSL  IF  TsGvx  ?(<•  ( AFS  Uh)  »SIGN  { 1 . *5l ) »ABS  (SI ) »»XFS  ( 171  > 

5 T 2 = YGUST - v YB 

OVXYB  = 11*(xkF*aaF  ♦ST?*ST2) 

ANG2  = 0. 

IFlQvXYn.sf.O.)  ANG2=ATAN2(ST2.XXF| 

S1=>SIN  (ANr.?) 

YFFS*rJvxYH.<xfS<21l*SIGN<l..Sl)*ABS(Sl>»*XFS(22>) 

ANG3*0 • 

avxYZ  = Q‘>txxF»*2.ST2o»2»STl,*»2> 

IFIOVXYZ.nf.O.)  ANG3=ATAN2 (SORT  (ST1»42.ST2»«2)«XXF) 

S 1 =COS ( ASf, 3 ) 

DFxQVXY?* ixFS ( l 8) ‘SIGN! 1 .*S1) •ABS(S1)«*XFS (20) ) 

ZFFUS=-FSLIFT 

yffus=yffs 

XFFuS=-DF 

call  XPRO  ( XAFUS.YAFUS.ZAFUS.XFFUS.YFFUS.ZFFUS.LFUS.MFFUS.8FFUS) 
IF ( AHS( ANGl-YFS ( 1 ) ) .GT. YFS (2) ) GOTO  90 
S1=SIN(3. 1415y*  < ANG1-YFS ( 1) ) / (YFS  <2)-YFS(l ) I I 

IF  ( ( ( ANC- 1-yFS  ( 1 ) -OS)  .GT.O.  I .OR.  ( (AVG1-YFS(  I ) »05)  .Lt.O.  ) ) GOTO  8 0 
S1«SIN. ( 3. 1*  1S9»0S/  ( YFS  (2)  - YFS  ( 1 ) ) I 
RFI=ovxZ«»xF5(2ai»(ars(S1I<,»xfs(25)) 

► F(JS  = 2 • #NF  I * (ANG 1-YFS  ( 1 ) ♦D5) / (2.*D5) -MF1 ♦MFFuS 
GOTO  100 

80  *«FtiS*UV*7f.»(XFS(2<0»SlGMl.*SIN(AMGl-YFSll)  ) ) • ABS < SI ) •*Xf S ( 25) ) 

I ♦MFFOS 

GOTO  100 

90  S1=SIN(3.1a159*(ABS( ANG 1-yFS (1))'YFS(2)»YFS(1))/(3.14159.YFS<1) 

1 -YFS12))) 

*FUS  = OVXZRo ( XFS (26) «SlGN ( 1 . .SIN  < ANG1-YFS 1 1 > ) ) »ABS (SI ) *»XFS (27)) 

1 ♦WFFOS 

1 0 0 IF(A95(ANG?)  #GT.yFS(3)  ) GOTO  120 
S1*SIN (3. 14 1S9*ANG2/yFS (3) ) 

IF ( ( ( ANG2-05) .UT .0 . ) .OP. ( ( ANG2*OS> .LT.O. ) ) GOTO  110 

S1sSI*(3.1»159*05/YFs(3I I 

NF1=QVAYB»«FS(29i<,(AhS(S1I,,»XFS(JO)) 

NFUS=2.«NF  I • ( AN02*05I  / (2.  •OS)  -Nk  1 ♦NFFUS 
GOTO  130 

110  GFOS  = 0YXYR»(XFS(29)»SIGMl..Sl),AftS(Sl)»»XFS(30)  > .NFFUS 
GOTO  130 

120  SI *SIN ( 3. 1 4 159* ( ABS ( AN02) -YFS ( 3) ) / (3. 1 4 159- YFS ( 3)  I ) 

NFUS*'JV»YR4(XFS(3l)*SlGN(l..SIN(ANG2))»ABS(Sl)“,XFS(  32)).  NFFUS 
130  CONTINUE 

C jet  Thrust  equations 

IF (COLJF T .FO.O . ) GO  TO  140 
DCOL*COL Jk T» (COLSTk-COLKSI 
COLKS«CGLSTK 

TAXR=TAXH.PCOl 
IF  (NJtT.tO.l)  GO  To  140 


ANALO 165 
ANAL0166 
ANAL016? 
ANALO 1 66 
ANALO 169 
ANALO 1 TO 
ANALO 1 71 
ANALO 1 72 
ANALO 1 73 
ANAL01 7y 
ANALO 1 75 
ANALOl 7b 
ANALO 1 77 
ANAL01TB 
ANAL  0 179 
ANALO 1 BO 
ANAL0181 
ANAL  0182 
ANALOl «3 
ANALO 1 84 
ANALO 1 85 
ANALO 186 
ANALOIhT 
ANALO 1 88 
ANALO 1 89 
ANALO 1 90 
ANAL  0191 
ANALOl 92 
ANAL  019  3 
ANALOl 9- 
ANALO 1 95 
ANALO 196 
ANALO 1 97 
ANAL  0196 
ANALO 199 
ANAL0200 
ANAL  0 20  1 
ANAL0202 
ANAL0203 
ANAL  0204 
ANAL020S 
ANAL  0206 
ANALO  20  7 
ANALC  208 
ANAL0209 
ANAL  0210 
ANAL  0 21  1 
ANAL0212 
ANAL  0 2 1 ) 
ANAL  0214 
ANAL  02 1 S 
AN A L 0 2 1 6 
ANAL  021  7 
ANAL  02  1 8 
ANAL0219 


A-  1 0 


Y ' " « 
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T A XL  * 7 * «L ♦ncot 
1*0  CO NT  I*'  ► 

AN  .*.1  s£'lST»  *angp/  1 on  . 

/ U Y*  ' an pp l , 0 , • 0 • • A Y8 jE  T . APH  JE  T , APB JE T , T V l • T V2  * T v3  t 
Call  * A*  *•  a m .APJtAvD*Tvl,Tv2*TY3»MGWtPGB.YGW) 

ANGL  1 *CCi.  S T*  •-Nr.j.  /100. 

CALL  vPj:  AN  »L  1 . 0 • ■ “ • » - A V B Je  T • AP  M jE  T • Aw8  JE  T * T V 1 • T Y 2 • T V 3 

Call  appo  i AP  J.  A.O«  AvO.  TV  l « T v2.  T V 3.  PGL  «PGL  • YGL) 

CALL  Y«3ti  t T A * •*  % 0 . • 0 • • A v p j E T ♦ APe  JE T . ApB  JE  T « X E h JL  T • YF B JE T 
CALL  »P*»0  t X » jt T . Y-o Jt T ,ZAj£T , xFx JET , YFWJE T . ZFP JET .L» JET 
1 NWjfT) 

CALL  VP3lJ(T  A.L  .0  . . 0 . .-AYPJET,  APB  JET  .apbjet.xfljet.yfljet 
call  X Pm  G uajET.YAljET.ZAJET.xELJET.YFLJET.EFlJET.LLJET 
1 NLjE  T ) 

CALL  LIFjft 
CALL  PfcACT 

call  jEtint 

DGyPO  = PGYPO-PIjJ-PGL 
PGyO0=PGYPO-PGP-P6L 
YGYOO=YGYPn-YGP-YGL 
FOOCE  EQUATIONS 

XF=XFP«G*xFL»u»xFElf.xFFuS*XFOjET.xFLJET*XFGUN*XFFIN*xFj 
1 • XAOD 

YF  * YFFUS*YFPjET*yFLJET*YFGUN»YFFIN*yFY 

l ♦ Y ADD 

ZF*ZFBWG*7FLwG*7FELE.ZFFuS*ZFejtT.ZFLJ£T*ZFGUN  *ZF* 

1 *ZAOO 

PO“ENT  EQUATIONS 

QL=LP*G*LLpG»LElE  ♦LFiiS«LPJE  T»LLJET.LGUN»LFIN.ombj.  jml  J 

1 ♦«GYPn*p“Ano 

Om*mPi<G*‘'LmG.«£LE<mF(,S»mpj£T»>‘LJE  T *MGUN*MF I N*P“H J*PML J 
1 »PGYPO*PM*DD 

ON=NPwG»Nl*>G»  <ELE  *NFuS*NPjET  *NL JET.NGUN*NF IN* YM«J»YML j 
1 ♦YGYOO*YMADO 

GFwo= ( XF»-XF) •Pp 
GLAT- I YF ,-vF ) •J, 

GVEPT  = (ZFW-ZF) •»» 

150  PFTUPN 
END 


AnalOPZO 
ANAL0221 
ANAL0222 
1)  ANAL02/3 

ANAlOZ/m 
AN AL  0 2 25 
. 1 ) ANALO  22b 

ANAL  0 227 
. ZFPJFT . 1 ) ANALO  22B 
.PPJET.  ANAL 022x 
ANAL0230 
, ZFLJET . I ) ANAL0Z3  1 
. ML  JET • ANAL0232 
AN4L023 3 
ANAL023* 
ANAL  0?35 
ANAL0Z3P 
Anal  02  37 
ANAL023S 
ANAL023B 
ANAL  0 ?4  0 

♦ XFPJ.XFLJANAL03-.1 

ANAL  02*2 
♦YFBJ.YFLJANAL0Z43 
ANAL024* 

♦ ZFR  J.ZFL  JANAL0Z-.5 

ANAL&?»b 
ANAL02*7 
ANAL02»B 
ANAL02.Y 
ANALOZSO 
ANALOZS 1 
ANAL0252 
ANAL0253 
ANAL  025* 
ANALO  255 
ANAL02S6 
ANAL02ST 
ANALOZBt? 


SlIGPOUTINF  CLCD  (ALP.CL.CO»XMAC*£xIT.NI  CLCDOOO 1 

COMMON  /STAPAN/  c3.C*.Pm<CLP»CLP*OCP«OQL«OJN.CLBO,CNHO.FTAO.NjfT.  CLC00002 

1 QF IN.CLPCL . YFS ( l* I .CNBCL . CNPCL • CN»CO . CN9CL « COL»S . CLC00003 

2 03ELF.FNS»C.L«ING,PPIST.YAFW0(31.3) . APB jE T . APb jE T . CLCDO 0 0* 

3 AYBjFT tCNPCOl .CNPC02.C0L JET .Dx.GEl •0Z*GEL*£TAO«x , CLCDOOOB 


A PWG*k1,PC»INC'.S«InGM.ANGB.ANGL«0FlAP 

common  /STANUO/  DUm ( 2 ) «L Ink 
common  /STPIAB/  TEMP ( 32*) I Y»G (2 l I 
DIME  NSION  Hf  AU ( 3) 

LOGICAL  STALL 

DATA  DTPP.PI .TwOPI/  57.29578,3. 1*1593. 6. 2B3185/ 


CCCDOOOb 
CLC00007 
CLC00008 
CLCD0009 
CLCD001 0 
ClCDOOI I 


A-ll 
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OATA  HALFPr/1 .570796/ 

CLCDO  0 1 2 

DATA  HE  AO/ 

CLCOO  0 1 3 

1 IOm  «f[NG  .10*  ELEVATOR  * 1 oh  fin  / 

CLCDO  01*. 

stall-. FAlaF. 

CLCDOO 15 

alf^alp 

CLCOOO 16 

10 

SG=  1 . 

CLCDOO 1 7 

JFIalF.lt. 0.)  SG*-l_. 

CLCDO  0 1 5 

AMG  = SG<*alf 

CLCDOO 1 v 

IF (?0.LE.AmG)  go  TO  20 

CLCD0020 

IF  (P  I .GE  . tur,|  GO  TO  30 

CLCD0021 

AMQ=A“G-TwOPI 

CLCD0022 

AlF  s AHG»SG  ) 

CLCD0023 

GO  TO  10 

CLCDOO?* 

20 

WHITE  16.130)  N 

CLC00026 

E X I T = 1 . 

CLCD0026 

PF.Tu»N 

CLCOO  0 2 7 

30 

CONTINUE 

CLCD002M 

*0 

SMAC»l./SOPTIAr)S(l.-«MAC»»2)l 

CLCOOO?* 

AL I *0  . 

CLCDOO  30 

CLA*TAt'On  (?2, Nl 

CLCDOO  3 1 

XK*yAEH0(23.Nl 

CLCDOO  3? 

C02«yAEPO ( I 2.N) 

CLCD0033 

COl  = Y AE on ( 1 3 • N ) 

CLCOO  0 3* 

CO?  * Y AE  DO  ( 1 A * N ) 

CLCD0035 

ALD=ALP«DTBP 

CLCDOO  36 

IF( (HALFPI ) .GE.AmG)  go  TO  50 

CLCDOO 37 

AMGzPI-AMG 

CLCD003M 

SG*-SG 

CLC0003V 

AMX  = Y AE  *0  ( h . N) 

CLCD0O*0 

T»»<iIAMAui] 

CLCDOO* 1 

CNAR=YAEPO(26.N) 

CLCDOO*? 

CL?=yAE»0 ( 7.N. 

CLCDOO*3 

GO  TO  oO 

CLCDOO** 

50 

CL?=YAEPO(3.N) 

CLCD00*5 

AM  X x Y AE  HO (2.N) 

CLCD00*b 

TAMXxTAN ( AMI ) % CNAHiYAEPO (2a. n) 

CLCDO0*7 

60 

DCx=0. 

CLCDO  0*3 

IF(N.EG.l)  DCXsykG(20I»0FLAP»SG 

CLCDOO** 

if  (n.eo.  i ) oco=ywg i i<j i »oflap»sg 

CLCD0050 

IF  IAPG.GT.AMX)  GOTO  70 

CLCD00S1 

TAxTANIAMf.) 

CLCDO  052 

DCNA=XK»  (COS(TA/TAMX»PI/2.) ) **2  • * 

CLCOO  06  3 

CNAxCNAR.pCNA 

CLCDOOS* 

GOTO  no 

CLCD0O56 

70 

TAxTAN ( A MG ) 

CLCD0056 

Xl.TAMX/TA 

CLCD0057 

0»-I.55»SIN((1.-.6»x1-.a»xI»»2)»PIJ 

CLCDOOSH 

CNA*CN»P.(l.lb-CNAR)»(l.-Xl)»0»l-LA/2.3 

CLCD006* 

80 

5 A x S I N (AMG ) 

CLC00060 

CAaCOS(AMG) 

CLCDOObl 

S?A=SINI2.»AMG) 

CLCD006? 

Cl*CLA»S?A«CA/2..CNa*SA«»2»CA 

CLC00063 

IF(N.NE.l)  GOTO  VO 

CLCD006* 

DCL=0 . 

CLCDO  066 

IF (A«G. LE. AMX)  DCL*DCO* ( DCx-DCO I * AMG/ AMX 

CLCD0066 

H'V 


CLaCL  *OCL 
90  CONTI  NUE 
CL  = CL  *SG 

IF  ( A“G.r,T  .t»i  I STALlf.TRuE. 

coz=co/»smac 

IF  ( A“X  .L  T . 4«r, ) goto  100 
C6*AMG*C02 
C 7 *C D 1 • CO 
co*co?*AMr,»C7 
0CO=Cb«C7 
GO  TO  110 
too  CONTINUE 

COx=COZ»amx« (COl.AM t*C02) 

CS*AmQ-HALFP  r 

C6=CS*(C0*-1.2) / (AM* -HALE PI >«»2 
C0*CS»Cft-1.2 
DC0=C0*C6 
Il0  CONTINUE 

£».5<'7»VAFBn(lM,N)»l.l*9fc-.0lA2'*»YAERO(18*N)) 

AL  I * (CL/ (PI*YAER0  ( 18, N)  »E>  ) 

IF (STALL. AND. LINK. NF.A)  WRITE  (0.120)  HEAO(N) 

C3*CD 

IF (N.EQ. 1 . AnO.Amx .GF . AMG)  C3=CD*YWG(11)»0FLAP 
IF (N ,£u  . 1 , and  . Amx  .LT  . amt,.  AND.  AmG.lE  .( AM X*. 0*731) 

1 C3=CD*YWG ( 1 1 )»OFUAP« ( 1 .- ( AMG-AMX > /.0b73) 

CA*CL 
NSGG  = -1 

CALL  VW2D  (C3.CA.ALT .CO.CL.NSGGI 

RETUPN 

120  FORMAT  ( IhO.AIO, ‘STALLED  AT  •,F7.3,»  DEGREES  CL  = < 
1 Eb.3) 

130  FORMAT  (»o  EXCESSIVE  ANGLE  OF  ATTACK  FOR  N = ».I2) 
FNO 


CLCOOOSR 
CLC00070 
CLC0007 1 
CLC00072 
CLCD007 J 
CLCD007* 
CLCD0075 
CLCO0  0 7t, 
CLCOO  0 7 7 
CLCOO  0 7b 
CLCD0079 
CLCOOOftO 
CLCOO  0 ft  1 
CLCD00H2 
CLC00003 
CLCDOOma 

clcooohs 

CLCOOOBO 
CLC000b7 
CLC0C0B8 
.ALO.Cl.CO  CLCPOObR 
CLCD0090 
CLCO0O91 
CLCD0092 
CLCO0093 
CLCP0O9* 
CL CD 00 9o 
CLC00C9O 
CLCDO  09  7 
»F  6 . 3 , • CO  = *.CLCOO)9b 
CLC00099 
CLCDO  1 70 
CLCOO 1 0 1 


SU8P0UT INF  COMSOL (C0EF.REPRT1.7PHT1.HEPRT2.ZPRT2) 
SOLUTION  OF  SIMULTANEOUS  EQUATIONS 
WITH  COMPLEX  COEFFICIENTS 
N = ORDER  OF  MATRIX 
DIMFNSION  COEF (2,3) ,A(2.5) , 

COMPLEX  A.TEMP.DET.COEF 
N*2 

NP  1*3 
00  10J  = l.NPl 
DO  101  = 1,N 
A ( I . J)  « COEE  ( I . j) 

10  CONTINUE 

OET  * (1.0,0.01 


NMl«N-l 


COLUMNAR  RFAWRANGEMENT  OF  MATRIX 


A-  1 3 
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00  60  1=1, NMl 

CO“S0016 

JJ* I ♦ 1 

CO“SOO 1 7 

IMAX=I 

COMSOOM 

N = OPQFP  OF 

MATRIX 

C0M5  0 0 1 * 

AmaxT  = RF AL ( A ( JJ « I ) ) #*2  ♦ 

A I *A(j  ( A ( J J • I ) ) *•? 

COMS0020 

DO  30J=JJ.N 

C0MS0021 

AT£  S T 1 = PFAL (A ( J. I | ) °*2  • 

A I « aG ( A ( Jt  I ) ) *#2 

COMSOH22 

ATEST2  = PFAL (* l I*A«  , I ) I »«2  ♦ A IMAG ( A ( IMAX , I ) ) “»2 

COMS0023 

IF  (ATtSTl-ATF^r^)  Jo*30t20 

COMS002* 

to 

IFiATESTI.lE. AmaxT)  on 

TO 

30 

COMS0025 

AM4XT  = ATFSTl 

COMS0026 

IMA*  = J 

COMS0027 

30 

CONTINUE 

COMS0026 

IF ( [MAX-I ) 60.60,40 

COMS0029 

40 

OET=-UET 

COMS0030 

DO  50K=l.NPl 

C0MS0031 

TEMP=A l I ,K I 

COMS0032 

A ( I ,K ) =A ( [MAX,* ) 

COMS0O33 

A ( I“AA ,K ) = TfMP 

C0MS00  A* 

50 

CONTINUE 

C0MS0035 

60 

CONT I NUt 

COMS0036 

AUGMENT  Input  matwIx  with 

THE  IDENTITY  MATRIX 

COMSO  0 3 7 

NP2  = * 

COMSO  0 36 

N2P1  = 5 

COMS0039 

00  60  1=1. N 

COMSOOAO 

DO  70  J =NP2.N2P1 

COMSOOAl 

A ( I . J)  = 0.0 

COMSO  0**2 

70 

CONTINUE 

COMSO  0*  3 

60 

CONTINUE 

CO“SOO** 

DO  90  I = l.N 

COMSOOwS 

J = I ♦ 6P 1 

CO«SOO*6 

A ( I . J)  = 1.0 

COMSO  0*7 

90 

CONTINUE 

COMSO  0*6 

solution 

COMSOO*9 

DO  150  1=1. N 

COMS0050 

IP1  = 1*1 

COMSO  051 

TTEST  = PF  AL ( A ( I , I ) ) «• 

2 * 

A IMAG l * ( I « I ) ) **2 

COMSC0S2 

IF (TTEST .lf.O.UOOOOI ) 

GO 

TO  170 

COMS00S3 

1 00 

DO  IIO  J = TPI.N2P1 

COMSOOS*. 

• d.JI  = A ( I , J)  /A  ( I , I ) 

COMSO  0S5 

J10 

CONT I NOE 

COMSO  OSfe 

DO  1*0  K = l.N 

COMSOOS7 

IF  (w-  I 1 120.1*0.120 

COMSOOS6 

HO 

00  130  J = IP1.N2PI 

COM S0059 

A(w.J)  = A(K.J)  - AIK. 

I ) * A ( I • J ) 

COMS0O60 

1 30 

CONT INUE 

COMS0061 

1-0 

COnT  INUf 

COMS0062 

150 

CON  T I Nut 

COMS0O63 

DFTFPMINANT  EVALUATION 

COMS006* 

00  160  I s l.N 

COMS0065 

DET  = OET  • A ( I . I ) 

COMS0066 

160 

C JNT  I xuE 

COMSOOhT 

M£PPT I = OF  AL ! A ( 1 .3)  ) 

COMSO  066 

7PP  T 1 = A IMAG( A ( I ,3) ) 

COMSOOS9 

PEPOT2  = PFAL(A(2i3) ) 

COMSO  0 7 0 

A-l* 


L 


A 


*’1  A-  -<*- 
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7POT?  = A i maG ( A ( 2 * 3 ) ) 

f>ETUk  N 

C SINGULAR  MATRIX 

1 70  RojnT  lt50  . T * I « A ( I » I ) 

IbO  FO ova  7 (/1h  a ( * I2» 1m* » I2*4h)  = *?F10.8 
1*0  FORMAT  ( 7b  1?.4) 

RFTuRN 

END 


CO^SOO? 1 
COMS0072 
COMS  C 0 7 3 
COmS0O7<* 
CO^SOMTS 
COmsOOTo 
COMS007  7 
COMSO  0 7 o 


C 

c 

c 


c 


c 


c 


S'J8R0UTINF  CONTDL  (NTWIM) 

common  /CON TP/  AOISP(J)  *AOATE(3)*0ELTA(4)*TMP(2)*RPCT(3)*XSYS(26) 
Common  /WjFTS/  nj*XST*<(3) 

Common  /manAL/  ATEM(P)  fP£D*bTFM(  19)  #CyCR1  #CYCPi? 

COMMON  /STPIMA/  CTEm  ( 170)  tALGEl  *ALGEx?tDTEM  (2b)  *CYPWlC*RUOINO* 

1 FTFM(2) *ALGE3 

COMMON  /POm AN/  FTEM(3)fT!M£ 

COMMON  /manAHO/  GTEm (3) *DT *mTEm l 16) * CYSTK1 

X 5 YS ( 1 5 ) EO  0 : CONVENTIONAL  *ech.  contpol  used 
XLIM(#1«X?*X3) 3 AMAxl(Xl*AMlNl(X2*x3)) 

XSTKF  ( KtX  l , X2'X3>  =<  AH  IM1  IAHS  (X)  MJ)  °X  1 ♦ AMAX  1 ( ( ABS  (X)  - X3)  t 0 . ) ®X2) 

1 •SIGN(1..X) 

IF (XSYS(lS)  • EO • 0 . ) GOTO  10 
IF  (NTPIM  ,EO.  2)  GO  TO  30 
IF  (NTRIm  .EQ.  1)  GO  TO  20 
10  X A = 0 • 

n tp i m= o — Initialization  here 
x o= o . 

NTP I M = 1 

20  0X1=AL6E3*57. 3 

NT P I m = 1 --  Tdim  CONTROL  LAWS  APE  INSERTED  HERE 
XArxSTKF(xSTK(l)  * ALGF 1 • ALGE2  *DX 1 ) *X0 
IF (XSYS ( IS) .EQ.O. ) GOTO  40 
30  CONTINUE 

N TP  I M = 2 — Time  mISTORy  CONTROL  LAWS  ARE  INSERTED  HERE 
♦ 0 DELTA ( 1 ) = XA 

50  DEL T A ( 2 ) = CYPw  IC«CyCR2 

DELT  A ( 3 ) = RUDIND#RE0 
DE  L T A ( 4 ) r 0. 

DELTA ( 1 ) =DFL  T A ( 1 ) /57.3 
RETURN 

60  FOPHAT  (1mO*SX*2E1 5.5) 

END 


CONTOOO 1 
C 

CONT  0 0 0 3 
CONTnno** 
CONTOQOS 
CONT 0006 
COM 

CONTOOoh 
CONTOO  "W 

ccntoo: o 

CONT  0 3 1 1 
CONTOO  \ 2 
CONT 0 01  3 
CON  T on  1 4 
CONTOO lb 
CONT  0 0 1 6 
CONTOOl  7 
CONT 

CONTOOl 9 
CONTOO  ?0 
CONT  0 021 
COM 

CONT  0023 
CONTOO?** 
CONT  0 0?5 
CONT  0 0 ?6 
CONT  0 Or  7 
CONT  0 0?8 
CONT  0 029 
CONT  0 0 30 
CONT  0 0 31 
CONT  0 0 3? 
CONT 003 3 
CONT  0 0 34 
CGNT003b 


SUBROUTINE  CONV  (IMFT) 

COMMON  /STPIAR/  Tl  (184)  ,XEL(l4)  *XER(7)  .XFC(28)  *xFn(7)  *XFS(35)  , 


CONvOOO 1 
CONV 0002 


K 


ft 


A. 15 


! 

• fl 

€ 
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1 xGN(7)  « X 1 T ( a 1 ) .x«G(21)  fY»G<21)  ,YEL(21)  «YFN<21)  , CONvOnob 

2 T2  ( 2 7 ) . XCON  (ft  3 I . X jt T < 24  I . T3152J  , XWJT  ( 1*0)  , Y«jT  I 7 ) .CONV 00 04 

3 XL JT (64 I .YLJT ( 7)  CONvOnob 

Common  /sto!“4/  T4  ( 1 MO  I • TSTAH  ( I*  I CONVOOOb 

Common  /COf ru/  Tb ( IS) .XSYS (28)  CONV0007 

COMMON  /mftI/  XH  ( 3b  ) • X»  C i ) • YX  121  I • XE  ( 14  I . YE  (if  t I . XF  ( 7 ) . vF  (21  ) , CONVOOOd 

1 XJ  ( U ) .XC  (63)  « vo  ( 7)  .XR  (140)  . XT  (do)  , XO  ( 7)  .X  I 1*1 ) . CONVOOOb 

2 YL  ( 7)  . XL  IBM)  iXS  (20)  . TS  ( 14)  .XCM  (20.6)  CONVOOIO 

D4TA  Fl,F2,F3.F4,fb.F6»F7,F8fF9/.224609*.3937Ul*.7J7b62.10.76391.  CONVOOl 1 

1 3b.  3146b.  .S710  lb.  . 737be2.  .050539,  3.28064/  C0NV0012 

DO  10  1*1.7  CONvO  0 1 3 

XE»  t I I *XO ( I ) CONVOOl » 

YPjT(I)=YQ<I)  CONvOOlb 

YLJT  ( 1 I =YL  I I ) CONV  0 0 1 6 

XFN< 1 I * X F ( I ) CONVO  017 

10  X GN (11=0.  CONVOOl n 

DO  20  1 = 1.14  CONVO  013 

TST»N I I ) =TS I I > CONV0020 

XEL  I I ) = X t ID  CONvO  02  1 

20  X JET ( I ) =» J( I ) CONV0022 

DO  30  1=1.21  CONV0023 

XIT(I)=XI (II  CONV002- 

XKG(I)=Xn(D  CONv0O2b 

VUG < I ) =Y» < I ) CONV0026 

YEL(I)=7E III  CONV0027 

30  VFN I I 1 =YF ( D CONV0026 

DO  *0  1=1.28  CONV002M 

XFC(I)-XTd)  CONV0030 

*0  XSVS < I I =XS < I 1 CONV0031 

DO  bO  1=1.35  CONV0032 

50  XFS( 1 1 s>rtr t > CONV0033 

DO  60  I = 1 . n 3 CONV 0 0 3« 

60  XCON ( 1 1 =XC  ( I > CONVO  o 3b 

DO  70  1=1.84  CONV0036 

70  XL JT ( I ) = XL ( I ) CONV0037 

DO  80  1=1.140  CONV0038 

80  XRJT ( I ) =xw  ( I)  CONV003V 

IF ( IMET.NE  .0)  WE  TURN  CONVO04O 

NO*YB(ll  CONV0041 

NL*TL ( 1 ) CONV0042 

XFS ( 1 1 = X8 ( 1 ) «F1  CON  VO  04  3 

XFS I 3b) = XG | 35) »F 1 CONV0044 

DO  50  1=1.3  CONVC045 

90  XEO ( I I =X0 ( I ) oFl  CONVOC46 

YOjT ( 31 =yb 1 3) /F 1 _ CONV0047 

Y« JT ( 4 ) =YB ( 4 ) /F 1 ’ CONV0048 

DO  100  1=2,7  CONV0049 

XCON!  1*54|=XC(I*54)«F9  CONVO  050 

1 0 0 XFS< 1 1 =XW I D «F2  CONVOObl 

XFS ( 33) =xw ( 33) *E2  CONVO052 

XFS < 34  I :I»  I 34) «F2  CONV0053 

DO  110  1=2.4  C0NV0054 

X*G ( 1 1 =xw ( I ) »F2  CON VO 0 55 

XEL 1 1 > =XE ( D »F2  CONVOObb 

XFN ( I ) *XF ( J ) *F2  CONVO  057 


*-16 


E?' 


am  tm 


A 


' * 


MM '■ 


p 

- 
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110 


1?0 

130 

1*0 


[5.0 
[ 60 


l TO 
[60 


* JET  ( I *2) =» J ( I *2) *F2 

CON V 0 OSS 

AFC ( 1 *21 ) = x T 1 I •?!  1 »FV 

CONvOflS* 

XCON  (2)  = XC  ( 1 1 »F2 

CON V 0 060 

DO  120  1=1,2 

COnvOOM 

XCON ( I ‘2) = xC  ( I *2) *F2 

C0nv0062 

XCONI  l*S>  = x C ( I * 5> ) /F2 

CONV  0 0 ft3 

XCON 1 I ♦ 7) *xC ( 1 *7 ) *FP 

CONVOO** 

XCON ( I • 10 ) =xc ( I ♦ 1 0 ) /F2 

CONVO  06b 

X COT;  I ] * 2*  ) = X C I I *2*  ) »F2 

CONVO  06ft 

XCOM  ( I <2H  = XC  ( I *20)  /F2 

CONV0067 

XCON  <I»2*)=XC(I-26)»F2 

CONvOOftrf 

XIT  (fl  1 ) =X  I ( I*  11 ) »F2 

COnvO 

XFS(2M*l4)=x6(2°fl4)*F4 

CON V 0 0 7 0 

xFS(io*i»in=xri(io»!»ii)»F* 

C0NV0071 

XFS(2*f2?)=x-M2°f22fFb 

CONV  0 0 7? 

XCON (JM-l)=xC(3»I-l)<>F6 

CON V 0 0 7 3 

XE«  1 1 *3)  =XP  1 1 ♦ 3)  »F7 

CONVO  0 7h 

XFC  ( f 2>=XI  ( f 2)  «F9 

CONV007S 

XCON ( 31 ) =xc ( 31 ) /F2 

CON V 0 0 7ft 

XCON ( 32) =xr (32) «F2 

CON V 0 0 77 

DO  130  1=36.46,2 

CON V 0 078 

XCON 1 I ) =xr  ( I ) "F2 

COnvOOM 

DO  1*0  1=6,11 

CONVO(HO 

XFS (I ) =XH 1 I) oF  3 

CONV  0 0*1 

X JET  (10)  = XJ  ( 10)  »F  3 

COnvOO«2 

XwG ( 1 ) = Xw ( 1 ) *F4 

CONVOOM3 

YWG ( * ) = Yw ( 4 1 «F4 

CCNV008- 

XEL ( 1 1-Xf ( 1 ) »F4 

convoo*s 

YEL (4) =YF (4 ) «F, 

CONVGO*o 

XFN ( 1 ) =XF  (I  1 »F4 

C0NV0Q87 

YFN ( 4 1 = YF ( 4 ) «F4 

CONV  0 0*8 

XFS (29) = xo ( 2S I OFS 

CONvO  0*9 

XCON (10) =XC (101 »F6 

CONV0O3C 

XI T ( 14) =XI ( 14) »F7 

CONV0091 

YWG ( 1 0) =YW { 10 1 »F9 

CONV  0 0 *5 

YEL  ( 10 ) =YF  1 10 ) *FS 

CON  VO  0 93 

YFN (10) = Y F ( 10 ) »FR 

CONVO  09** 

XFC ( 1 4 ) =XT ( 1 4) °FQ 

COnvoo^s 

XFC  (27  I sx T ( 27 ) »FR 

CONVOO'Jft 

X IT  (4 ) =X  1 (4 1 *FW 

CONV0097 

DO  160  N=  1 , NR 

CON  V 0 0 9 8 

X R J 7 ( 1 4 « ( N - 1 ) ♦ 10} = X B ( 14®  (N-l ) *10) *F1 

CONV0099 

XPJT(l4*(N-l).H)sXH(l4«(N-l)«ll)»Fl 

CONVO 1 00 

DO  ISO  1=1,3 

CONVO 1 0 1 

XRJT(l4»(N-l)»[)=XB(14»(N-l)»I)*F2 

CONVO 1 0? 

X B J T ( 1 4* (N-l ) ♦ 6 * I ) = XP 1 1 4* (N-l ) -6  ♦ I ) *F  2 

CONVOl 03 

CONT [NUE 

CONVO  1 0** 

DO  160  N=1,NL 

CONVOl OS 

XLJT ( 14* (N-l ) ♦ S) =XL ( 1** (N-l ) ♦ el»F3 

CONVO 1 OS 

XLJT ( 14* (N- 1 I ♦ 12) =XL ( 14» (N-l ) ♦ 12) /Fl 

CONVO l 07 

XLJT ( 14* (N-l ) • 13) =XL ( 14* (N-l ) ,13) / F 6 

CONVO 1 08 

DO  170  1=1,3 

CONVOl 0 V 

XLJT ( l4« (N-l ) • I ) = XL ( 1** (N-l) M ) *F2 

CONVOl l 0 

CON7 [NUf 

CONVOl 1 1 

RETURN 

CONVOl 12 
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SUBROUTINE  C OWl  (J.X.I)  CNV10O01 

CO“mON  /►HI/  T1  (Td3)  .Y  (20.6)  CNVlOOOl 

DIMENSION  x(20.6)  CNV10002 

DATA  Fl,F2»F3,F4.F5.F6,F7,Fb.F9/.224o0W,.3W37Qi».737562,l0.76391,  CNV 10003 
1 35.31466. .57 10 15. . 737562. .050539,3. 2H0b*/  CNV10004 

DO  1 11=1.6  CNVlOOfW 

1 * < I . 1 1 1 = Y ( t , T 1 ) CNV 10  004 

IE(J.GT.2n)  R£Tu»N  CNV10OO5 

GO  TO  <10,10.10,10.10.10.10.10.20,20,20.20.60,60.80.80.50.60.60.  CNVlOOOb 
1 70), J CNV10007 

10  * 1 1 .2i = v 1 1 ,2) «Fa  CNvioooa 

* ( t .5) = v ( [ ,5) ®F2  CNV 10  009 

RETURN  CNV10010 

20  DO  30  5=1.6  CNV10011 

30  * ( I .5 ) =Y ( I .5 ) »F9  CNV 10012 

*0  > ( 1 .3) =Y ( I . 3) »F 1 CNV 10013 

* ( I .5) = Y ( 1 ,5) »E l CNV 10014 

RETURN  CNV10015 

50  *M.2)  = ril.2),f2  CNVlOOlb 

RETURN  CNV 10017 

60  M J ,21 =Y (J ,2) »F2  CNV 1 0 0 1 d 

X (1 .3) *Y ( T .3) «F?  CNV1001W 

RETURN  CNV 1 0020 

70  X((t3)*V(!,3)*E2  CNV 10021 

80  RETURN  CNV 1 0 0 22 

END  CNV 1 0 023 


SUBROUTINE  coni  (XCON.COLJET)  CONlOOOl 

COMMON  /ST3IMA/  AY.VM.AGm.IXZ.XXU.YYD.ZZD.AuGF.APFP.AYFP.CGWL.  CON10002 

1 COLL (61 *CYCE ( 3) «CYCL <31 .0IST.6CIT (20) ,PEDA (3) . CON100O3 

? TI«E.Tmax.XCIT(20.6! .ALGEZ.alREI .ALGE2.CGSTA.  CON10004 

3 CP»IC.D!XlZ.DlYlX.DIZlY.FTKTS.6PEAO.Plij30.  CON10005 

A TSTAR  ( 16)  .ZMAX2«ZMAX3.ASEC0L,CYPKIC,R'Jt)tND.  CONlOOOb 

5 ZDELT 1 . ZDELT2  CON10007 

COMMON  /MANAL7  Q . AP  , PED.llwG.  AlEL  • T AXL  . T AXP  . X AaG.  ZA4G.  AI.C  yd  . CON10006 

1 ALFIN.ALLWG.ALDwG.COElE. COFIN. CDL*G«CODi,G.CLEi.E.  CONiOODw 

2 CLE IN,CLL«G.CLR»G.CkING.CYCRl .CYCR2.RANGE .»GCOL « CONIOOIO 

3 xAELE.XAFIN.XAFUS.XAJET.YAFIN.ZAELF.ZAFIN.Z«Fu5.  CONlOnll 

A YAELr . YAFUS, Y AL«G. Y ARWG, Y AL JE T . YAW JET . ZA JET . CON10012 

b ALECBl .AlGEPO.mALFpI ,rGUST«.ZFL*Gl .ZFWVG1  CON10013 

DIMENSION  XC0NI63)  C0N10014 

DATA  OTw.POlnTP/  . 1 74S32WE-0 I . . 1 745329E-03/  CONlOOlS 

SET  UP  VALUES  FOP  MAIN  TRROTTlE  CONlOOlb 

COLL ( 1 1 *XCON ( 1 1 CON  10017 

ie icoll (i ) .eo.o. i coll ( l i * i 00 * coNiooia 


A - 1 8 


X.  ‘A-  HU-' 


N*nc-7fcii3-Ju 


BANGS  pCOLL  ( 1 ! •►’0  ID  To 

COL JE T:*COM( 2) »COLL  < 1 > / 1 00. 

C S£T  (jB  VAli'ES  pnu  LONG  STICK 

CYCF  ( 1 I = *COM2S) 

IF (CyCF I 1 ) .EO.O.)  CyCM1)=100. 

cycf  <21  =-.s®kconi2S)  »otb 

IF(CYCF(2).FQ.U.I  Cvff  li-|  =-.«7£66-.6 

CYCF(il=XCOh(2M«*POinTP 

IF (CYCF (3) .£0.0.)  CyCF(3)=0TS 

AlGE 1 *«CON (271 

aloe  ? = kcon ( 2m ) 

C SfT  UP  YALIlES  fob  lat  stick 
CYCl  ( 1 > -*rn h |2y) 

IF (CYCLI 1 ) .EO.U.)  CYCL«1)*100. 
CYCLI2)=*CON(JO)*OTP 

IF(CYCL<2).FQ.U.)  CYCLI  2)=-.  8726b  46 
CYCL ( 3) CON (2M obOIOTW 
IF (CYCL < J> .FO.O. ) CYCL(3)=0TB 
CYP*IC=XCON (31 ) 

C SET  UB  VALI'FS  fob  PFOAL 

PEOA I 1 ) = < CON ( 32) 

IF (PEOAI  1)  .EO.O.)  PFnA(I)=100. 

PEOA (2) = XOON ( 33 ) »OTb 

IF(PEOA(2),EO.O.)  PEOA  ( 2 ) = -.B72t>to*6 
PEOA ( 3) = X CON ( 3* ) oPOlOTP 
IF (PEOA (3) .EO.O. ) PEOA ( 3 ) =OTP 
BlJD  I N0=  1 • 

PETIJBN 

ENO 


COMOOIY 
CON10020 
CONI  0021 
CON100P2 
CON  10  023 
CON 10  0 2* 
CON  1 0 0 2S 
COM  002o 
CON10027 
CON  10  0 2* 
CONI 002* 
CON  100  30 

coniooji 

CON  I 0 0 32 
CONI  0033 
CONI  0 0 3- 
CON  1 00  3S 
COM  0 0 30 
CONI  0037 
CON  1 0 0 30 
CON  1 0 0 39 
CONIOO.O 
COM  00*1 
CON 10 042 
CON100*3 
CON  1 0 0** 
C0Nin3<.s 
C0N100*S 
CON  1 0 0 * 7 


« 


**1 


K 


SUBPOUTINE  CPLOT(NPLOT) 

COMMON  /TOPLOT/  A0UM(2M) . NP AB T . N V AB A . N V ABB . N V ABC > NSC ALE . NV ARS , 
1 NBfiJNT.NTIME 

COMMON  /PLOTO/  HEAD(2t210) 

INTEGER  head 
DIMENSION  AI20M) 

DIMENSION  *(2UO),rl(200),Y2(200).Y3(200) 

DIMENSION  L AmY  (2)  «L  AB*  (2)  .LAhTL  U4)  *NPTS  (2)  f LAHVAL  (2)  .VLAHL  (2) 
DATA  LAN*  / 1 Om T I mE i SEC0*3HNDS/ 

BEAD  lu.  LAPTL 
10  FOOMAT ( b A I 0/6A 1 0 ) 

FAC=NSCALf/100. 

NPTS ( 2 > = 0 
NP  T = 0 

20  PE  AD ( 3 ) IP.T.A 

IF ( T ,GT . 1 000 . ) GOTO  30 
NTIME=NTI"F*1 

IF (NT IMe .FO.NBH INT ) N T I M E * 0 
IF (NT  IMF .NE.O)  GOTO  20 
NPT*NPT • 1 
X (NPT ) =T 


CPLO0O0 1 
CPi_00002 
CPL00003 
cploooo* 
CPLOOOOS 
CPlOOOOf 
CPLO00O7 
CPLOOO 0 - 
CPlOOOOm 
cplOOo i o 
CPL0001  1 
CPL00012 

cpi  oo  o;  j 

CPLOOO  1* 
CPlOOO IS 
CPlOOMf 

CPLO0017 

cp. oo  o ; « 

CPI OO  0 1 B 
CPL  • 0020 
cpioomi 
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VI  (NPT  ) = A ^VJUAI 
Y2 (NP  T I =A  I 

V 3 ( NP T ) = A (nVARC  ) 

IF (NPT ,ge .?OUt  GOTO  30  i GOTO  20 
30  IF |Nv»xa  .Fn.O ) GOTO  70 
NPTS  < 1 I =M>T 
DO  *0  1 = 1 .? 

*0  L*8Y ( I I =MFAO ( I ,NVAR4 I 

CALL  OBRR  (NPLOT .LABY ,2«LABx ,2 .lABTL « 1A, X. Y 1 .NPTS .LABVAL • 0 . 
1 VLABL .0 .3. 1 .FAC) 

IF  IMVABB  .Ff).  0 I GOTO  70 
DO  50  1=1.2 

50  LABY  ( I ) =*-FAD  ( I .NV  APB  ) 

CALL  GPPP  (NPL0T.LAHV,2.LAB<,2,LABTL. 1 A » X , Y2  . NPTS  «L  A.9  VAL  . 0 » 

1 VLABL.0.3.1.FAC) 

IF (NVARC. FO.O)  GOTO  70 
DO  60  1=1.2 

60  LABY { I ) =HFAD( I .MvASC) 

CALL  GPpR  (NPLOT.LAbY.2.LABX.2,LABTL.l*.X.Y3.NPTS.LABVAL«0. 
1 VLABL . 0 . 3. 1 .FAC) 

70  RETURN 
END 


CPL00022 
CPLO0023 
CPL0002A 
CPL00025 
CPL00026 
CPLO00 ?! 
CPL00028 
CP 100029 
CPL00030 
CPL00031 
CPL00032 
CPL00033 
CPLO003* 
CPL  00  0 3b 
CPL00036 
CPLO0O37 
CPL0003B 
CPL00039 
CPLOOOAO 
CPLOOOAl 
CPLOOOA2 
CP LOOOA3 


S’ 

K 


subroutine  cupvet 

common  /TnPLOT/  am ( 3 ) , AL ( 3 ) .E X I T . I COM ( 20 ) . I PSN, 

1 NPART .MVARA.NVAWH.NVARC.NSCALE 

1 .NVAOS.NPRINT.NTIME 

COMMON  /P(_OTO/  HEAO(2.210) 

01  MENS  ion  4(209), NC (209) .amp (209), ph 1(209), CI209) ,SUM1 ( p OR) 
1 SUM21209) ,SUM3(20Y) , SUM* (209) ,COEF(209I .NUMC(209) 

call  time*  (TUSED.TOFLT.TLEFT) 

DTR  = • 17*5  32925E-0 1 
0T8R=57. 2957795 
T«OPI=6.2k31R5j07 

C INITIALIZE  VARIABLE  SUMS 

DO  10  1=1,209 
NC  ( I ) =0 
SUM1 ( I ) =0. 

5UM2 ( I ) =0 . 

SUM 3 | I I =0  . 

SUM* ( I ) =0  . 

10  CONTINUE 

C READ  COOES  FOR  VARIABLES  TO  BE  FIT 

READ  (5.1*0)  (NC ( I ) ,1=1 .NVAPA) 

C SKIP  TRANSIENT  POINTS 

DO  20  I=1,NVARC 
PEAD  (3)  JPSN.T.A 
20  CONTINUE 

C CMANGF  INPUT  CPs  TO  RAD/SEC  AND  INITIALIZE  TIME  SUMS 

CMEGA«al ( 1 ) atmOPI 
S1»0. 


CURVO  0 0 1 
CURV0002 
CURV0003 
CURVOOO* 
CURVOOOS 
CURVOOOfe 
CURVOOO  7 
CURV00OH 

cur  vo  o o 9 
CURV0010 
CURV001 1 
CURVO  0 1 2 
CUP  VO  01 3 
CURVO  0 1 A 
CURVO  0 1 S 
CURVOOlb 
CURV00I 7 
CURVO  0 1 8 
CURV0019 
CURV0020 
CURVO  021 
CURV0022 
CURV0023 
CURV002* 
CURV0025 
CUR  V 0 0 26 
CURV0027 
CURV0028 
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s?=o. 

S3  = 0 . 

S*  = 0. 

ss=o. 

K OUN  T =0 

30  BEAU  Ul  JPSN.T.A 

IEIEOF (3) )60.*d 
*0  CONTINUE 

IE (KOUNT .EO.O)  TSTAoT=T 
IE (T.GT .9.F‘07 I GO  TO  60 
0T=0“tGA“T 
X=S IN (OT ) 

Y*COS<OT> 

COMPUTE  SUMS  WHICH  ABE  CONSTANT  WRT  VARIABLES  AND  COUNT 
S1=S1 ♦* 

S2=S2*Y 
S3=S3*X*X 
SA=S4»Y«Y 
S5*S5  • X*  Y 
KOUNT=kOUNT ♦ 1 

COMPUTE  SUMS  DEPENDENT  UPON  EACH  VARIABLE 
DO  50  J=I.NVARA 
I = NC  f J) 
b=a ( i i 

Sum  1 ( I ) =Sijmi  < I ) » r 
Sum?  1 1 1 =S||"?  ( I ) ♦B»K 
SUM3(  I ) =SliM3(  I ) ♦ B * Y 
Su“*  ( I > =SllMA  ( 1 1 »H»b 
SO  CONTINUE 
GO  TO  30 

COMPUTE  INTERMEDIATE  VARIABLES 
bO  DIEF  1 =<OUNT*S3-S  l ® ® ? 

DIEE?=KOUNT  »Sa-S2»»? 

OIEE3=KOUNT»SS-Sl»S? 

DENOm  = DIEe  1»DIEE?-DIFE3»»? 

CALL  wRGT 

WRITE  <6.1501  TSTART.AL(l) 

COMPUTE  AMPLITUDE.  PHASE  ANGLE.  CONSTANT.  AND  RESIDUE 
DO  70  J=1 .NVARA 
I=NC<J) 

DIEE5  = K0UNT«SUM? ( I ) -Si ‘SUM  1 < I ) 

DIEE6=KOUNT«SUM3 (I)-S?*SUMl(I) 

CONI* (01 Ees»0IEE2-DIEE6»DIEE3) /DEnOM 
CON?= ID  IF  E I •DIEF6-DIEES«DIEF3) /DtNOM 
A MP  ( 1 ) — SORT  (CONl°»?.CON?»*>?) 

PH  I < I ) = ATAN?(CON?»CDNl  ) »DTRH 
CON3= I SU“1  < I ) -CON  1 »c 1 -CON?°S? ) /KOUNT 

DIEF  7 =CDN  1 • (CONI  »S3-?.*SUM^  I I I ♦?.  «CON2«S5«  ? . <*CON3»S  1 ) 

1 ‘CON?®  ICONao^fc-jr.^sUMSi  I)  * 2 • *CON J°S2 1 

? ♦CON3»iKOUNT®CON3-?.®Si|Ml(I))  .SUM*  ( I ) 

C < I ) *CON3 

COE  E I I ) = SQPTI1.-DIEE7  / ISIJM*  ( I ) -SUM!  < I I «*2/KOUNT I I 
WRITE (6. 160)  (mFAD(k,I).k=1.2),AMP(I),phI(I).C<I) .COEF ( I ) 

70  CONTINUE 

IE (NVAWH ,FO. 0 ) GO  TO  100 


CURV002R 
CURVOO  30 
C UR  V 0 0 3 1 
CUBY0032 
CUB  V0  O 3 3 
CURV003* 
CUBV0035 
CURVO  0 36 
CURVOO  37 
CUPY0037 
CURVO  0 3y 
CURVO  0-0 
CuRvoo* ; 

POINTSCURVOOwB 
CURVO  0* 3 
CURVOO*- 
CURV00*5 
CURVO  0*6 
CUR  V 0 "*  7 
CURVOOAh 
CURVOO*  A 
CUBvOOSO 

cur  vo  os i 

CU»V0052 
CURVO  053 
CURvOOS* 
CURVO  0 55 
CU°V005b 
CURvCOsT 
CURVOO-)* 
CURVOOS* 
CURV0060 
ClBVOOM 
CURvOOb? 
CUR V 0 063 
CURVOOS* 
CUBVOOsS 
CURV0066 
CURV0367 
CURVOO-65 
CURV005B 
CURV0070 
CURVO 07 1 
CURVO  0 72 
CURVOO  7 3 
CURV007* 
CURV0075 
CURV0076 
CURVOO 77 
CURV0O7H 
CURVOO  79 
CURV00A0 
CURV00B1 
CURVOO  *2 
CURV00M3 
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CALL  wROT 
WRITE  ( b , 1 70  ) 

C AMPLITUDE  AND  Phase  ANGLE  COMPARISONS 

CO  40  1 = 1 .NVARb 

R E AO  (S.I40)  NNUM.NO* (NUMC(J) .jM.NNUM) 

01  = 1 

G2  = Ph I INO) 

00  60  K=1 ,nmjM 
J = NL'“C(K) 

PAT  10  = AMP ( J)  *01 
DIET  sPMj  ( j)  -02 

wBITt(6.1»*0)  ImEA0(L.J).L=1.2).(HEAD(L.ND).L=1.2).RATI0,0IEF 

60  CONTINUE 
40  CONTINUE 
100  *LIN=AL 12) ..1 

IF(RLlN.EO.O)  GO  TO  130 
CALL  «rot 
WRITE  (6.220) 

00  120  J=1,KLIN 

READ  IS. 1 4 0 ) NUEP.NIMl ,NIN2 

SIN2*S  IN ( (PHI  (NlNl 1 -PHI  (NIN2)  ) *OTR) 

IF  (APS  (SIN?)  .LT  . . 000  1 I C'O  TO  110 
SINl  *S  IM  (PHI  (NINl  I - PHI  (NOEP)  ) *LiTR) 

SIn3  = SIN(  I ph I (NOEP) -phi (NIN2 ) > »OTr) 

*Hl=A“P(NnEP)/SIN2 
XK2=XK1»SIn3 
XK3=X*1»SIn1 
BKWXK2/AMP  (NINl  ) 

CK  = XK  3/ AMP ( N IN2 ) 

D*  = C (NOEP) -RK«C (NINl ) -CK»C (NIN2) 

WRITE (6.200)  (HE  AO (* .NOEP)  ,K=l,2),(HEAD<K.NlNll.K=i.2),8K, 

1 (HEAD (K.NIN2) .K=l,2) .CK.QK 

GO  TO  120 

1 1 0 WRITE  (6.210)  (HEAOIK.NIM)  . K= 1 ,2 ) . <HEAD<K<NIN2  ) «K=  1 • 2 ) 

120  CONTINUE 

130  CALL  TIME*  (TUSFO*TOFLT.TLEFT) 

WRITE  <6. 140)  TOELT.TUSED 
return 

1*0  FORMAT  ( 1 4 I S ) 

ISO  FORMAT l 1H0//1H  .32X.36HLEAST  SOUARES  CURVE  FIT  STARTING  AFTER, 

1 FT. 3. 22h  SECONDS  "ANtUVER  TIME.//1H  .23x. 

1 S4HE  ( T ) = AMP(_ITUOE»SIN(OMLGAWT  ♦ PHASE  ANGLE)  ♦ CONSTANT 

2 10x.1?hwiTh  omega  =.F6,3.4h  Cps// 1h  ,14X. 

3 6HVAPIAHLE.  17X.4mamRLITuOE.6X,21HPHASE  ANGLE  (OEGREES)  . TX , 

* 6HC0NSTANT,  1 IX,  1?hC0EF,  OF  CORRI 

160  FORMAT  (l«0.6X.2A10.*(6*.r,lS.S)) 

J70  FORMAT ( 1H0//1H  ,4bX,37HAMPLITUDE  AND  PHASE  ANGLE  COMPARISONS// 

1 1H  ,27x  ,4HV  AP  1 ARL  E.S  .27X  . lbHAMPL  ITUDE  RATIO. 3X. 

2 23HPHASE  ANGLE  DIFFERENCE  ) 

180  E ORMAT ( 1ho.7x.2A10. 1h/.2A10.2(7X.g1S.S) ) 

140  fORMATIlHO, 10X.E10.3.31H  MINUTES  USED  IN  CURVE  FITTING, 

1 F10.3.3OH  M J nUTFG  TOTAL  COMRUTING  TIME  ) 

200  FORMAT ( IHO . 30x , Iha , 1 ox ,2A1 0/ 

1 1h  .30X, 1H0, 10x .2A10. 10X.G1S.S/ 

2 IH  .30X.1HC.10X.2A10.10X.GIS. 5/ 


CUR  V 0 0 84 
CURV006S 
CURV0086 
CURV  0 Oh  7 
CUPVOOmm 
CUPvOOHR 
CURV0040 
CUR  V 0 OR  1 
CUR  V 0 0 42 
CUPV0043 
CURV  0 044 
CURV004S 
CURV0046 
CUBV0047 
CURV0048 
CUR  V 0 044 
CU SV0100 
CUR V 0 101 
CURVO 102 
CURVO 1 03 
CURVO 10* 
CUBV010S 
CURVO I 06 
CURVO 1 07 
CURVO 108 
CURVO 104 
CURVO 1 1 0 
CURVO 111 
CURVO 112 
CURVO 1 I 3 
CUBV01 ]4 
CURVO  US 
CURVO  life 
CURVO  1 1 7 
CURVO 1 lb 
CURVO  UR 
CURVO 1 20 
CURV01 21 
CUPV01 22 
COBV012J 
Cur v o 1 24 
CURVO 1 2S 
CURVO 1 26 
CURVO 127 
CURVO 1 28 
CURVO 1 24 
CURVO 130 
CURVO 131 
CURVO 1 32 
CUP  V 0 1 33 
CURVO 1 34 
CURVO 1 3S 
CURVO 1 36 
CURVO 137 
CURVO 1 38 
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3 1m  , b 9 X ,8 H CONST  ANT  »10x»ulS.S)  CURV0139 

?I0  FORma T < lHO . 1 Ox . 3ShThF  PHASE  ANGLE  DIFFERENCE  ME  T«£EN  .2A10,  CuRVOIai.) 

1 SH  A ho  .2AI0/1H  , i 0 X , VNHIS  A MULTIPLE  OF  loO  DEGREES  • T HFRFFOCu»V 0 1 4 1 
2PE.  NO  VAPIAPLt  CAN  ~E  EXPRESSED  AS  A LINEAR  FUNCTION  OF  T«E«.)  CllHVOlL? 

?20  FORMA  T ( lHf)// 1 M ,3SX.  bFPFAPIASLt  ' A 1 AS  A LINEAR  COMBINATION  OP  VACUPV01*> 
IPIAhlES  'p<  AND  »C».//1h  ,Sbx.21H  A = Kt)«H  • XC*C  • Ku//Im  , CURVGIaa 

2 21*  .FhvARI  AHLE  * 16X  .ahnamE  ,22X  . 1 lhCOEFF  ICIEhT/)  CUSIOUi 

£ NO  CUP  V 0 1 Ab 


« 


subroutine  damper  oampooti 

COMMON  /STRIA  n/  E ( 74)  .F  (h)  ,X  (6)  • Ol . DM .ON . DX . OY . OZ . I X.  Iy.IZ.  OAmpoo<12 

1 PO (6. 7 ) tDTP.EPO.ERP ( bl iK“ 1 .RmO.R .SPO ( 6 .b . 1) . DAmpooOJ 

2 lELlHI .XER<7) ,AFc<28) ,xFN(7> ,XFS<35> .XGNI7) • OAMPcno. 

3 X IT  (PI  ) .XwG  {2  1 ) «TWG  (21  I .YFL  < 1 I . TEN  (2  1 ) .HLCG.  DAMPOVI-) 

* OAMP.OEPO ( 1 1 ) .EPUS.EPDX ( 1 1) .MASS. mlCO« XCON ( b3 I . OAM^OOOb 

5 XJ£T ( 14 ) . XMIN. AYEFP.CNPCD.uUE SS .NPASS.PDPH I ( b. 7) . DA“R0no7 

6 STAC0.T7E RO.OTPPSU.MXPASS. XLIMI T. XRJT ( 140  I . YRjT ( 7) OAMP0008 

7 ,XLJT <84 ) , VLJT ( II  DAMP0004 

XLIMIT*.b**LIMIT  OAMPOOIO 

IF (XLIMIT.LT. XMIN)  XLIMIT=XMIN  DAMP0011 

£PD=.b»XLIMIT  DA“P0012 

IF (EPD.LT . . 174S329E-03)  EPD=. 174S329E-03  OAMP0013 

DO  10  1=1.11  . DAMP001- 

DEPC ( I ) =EPD»EPDX ( I ) DAmpooiS 

10  CONTINUE  DAMPCOib 

PETUPN  DAMP0017 

END  DAMPOO 1 b 


« 


tLOCK  UATA 

COMMON  /PlOTD/  Plot? (2 . 1 0)  .PL0T3 ( 2. 1 0)  .PL0T4 (? , 1 0 ) .PL0T5 (?. 1 0 ) . 

U PlOT10(2.20).PLOT1(2,10).PLOTA(2.10).PLOTR(2.10). 

1 pLOTC ( 2 , 10) .PLOTO (2, 10) .PLOTE (2. 10) .PlOTF (2. 10 ) , 

2 PL0TO<2. 101 .PLOTH <2, 10) .PLOTI <2. 10) .PLOTJ12. 10) , 

3 PlOTK<2.10I.PLOTL<2.10).PLOT«<2.10),PLOTN(2,10) 

DATA  PLOT  1 0/  4 0 • l 0 H / 


DATA  PLOT?  / IOhlIFT  ThPUS.BhT  1.  N .IOMlIFT  THRIJS.flHT  2.  N 

1 IOhlIFT  Tl.puS.6mT  3.  N .IOHLIFT  ThRuS.BmT  4,  N .IOhlIFT  ThruS* 

2 8hT  5.  N .IOHLIFT  THRUS.BhT  b.  N .IOHLIFT  ANGLE. 7h  1,  DEG. 

3 IOHLIFT  ANGLE. 7m  2,  DEG. IOhlIFT  ANGLE. 7h  3,  OEG. IOMlIFT  ANGLE. 

A 7h  4.  Dfr./ 

DATA  PLOT  3 / IOhlIFT  ANGLE. 7h  S«  DEG. IOHLIFT  ANGLE. 7M  b.  DFG . 

1 10HREACT  Thpu.NhST  1.  N .lUHREACT  THRU.9HST  2.  N . 1 OhrEACT  thPuDATAOOI* 
2.9hST  3.  N . 1 OhrE act  Thru.RmST  4,  N .IOhreact  Thhu,9msT  S.  n • DATSOHS 
3 IOHREACT  Thp.i.RmST  b.  N .lOHRtACT  ThRU.RhST  7.  N .IOHREACT  thR'jD  a T a 0 0 ! b 
A . 9MS  T H.  N / DATA0017 

DATA  PLO  T 4 / IOHREACT  TMRU.9HST  N,  N .IOHREACT  THRU.10HST  10,  N DATA011R 
I.IOMLONG  STICK. AH.  CM.IOhSTAH  0EFL..4H  DEG.10HLAT  STICK. ,3H  Cm,  OATAOOIR 


DATAOO'i  1 

OATAOOO? 

OATAOOPJ 

OATAOOO*. 

DATAOOOS 
OATAOOOb 
OAT  AOOO  7 
OAT  A000« 
0ATA0009 
OATAOOIO 
DATA001 1 
DAT  AO  0 1 2 
DAT  A001 3 
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2 lOHAlLtfiDN  0E.7hEl.  OEG.IOhFwD  «CS  Th , 9hRuS  T . PCT.IOhEpD  pcs  AN.  OATAOOZO 

3 HhOL  E . DEG.  10HSPOU.T  ° Dt,7MEL.  UEG.IOhaET  PCS  Th.RhpijST,  PCT/  DATAOOZ1 

oata  plots  / iohaet  pcs  AN.8Hr.ut.  oeg.dhpod  pedal. «moeel.  cm.  oat a o o p z 

1 IOhpuuDEp  DEE.6HL.  OEO.IOHLAT  hCS  Th.yhHuST.  pCT,1Z*Lh  / DATA00Z3 

DATA  PLOT1  / 1 H ° 1 H .IOhElAP  OEEL..AH  (!£(>/  DATaOIZa 

DATA  PLOTA  / I'ihx-ODT.  HPS.lH  .lUHV-OOr.  mhs.Ih  .IOhZ-OOT.  HPS.  DATAOjZS 
1 lH  , 1 JHHOP  I ZONT  Al  • ;«  0 I ST  . M ,-»HA  i RSPfEU  • . 3hx  is  . IOhhFADING  AN.  DATAOOZH 


2 8h(jlE.  DEh.Shx, 


i 1 H .SHY,  m . lH  ,bhZ,  M . 1 h , 9h AL T I T UDE , , t hm  / DATA00Z7 


DATA  PLOT0  / IohDROunO  SPE.7HEO.  KTS.10HELT  path  A.yhngLE.  OtG.  OATAOOZ8 

1 IOhu-OOT,  ppS  . IhS.  IOhv-DOT  . mps  . I hS  . 1 i)h»-DO  T . »PS.1"S.  DA  T A n 0 Z9 

8 IOhP-DOT.  OPS  . IhS.  I OHO-OOT  . DPS  . 1 HS  . 1 Ohh-OOT  . DPS»1hS.Z*1h  . OATA0030 

3 Shu,  mas • 1 h / DATA0031 

Data  PlOTC  / b>s,  mps.Ih  .ghw,  mPS.Ih  ,ohP,  D“S.Eh  .e>HO.  DwS.Jh  , DATA0032 

1 AMP,  UPS. ]M  ,t«lH  , I OHPSI -DOT . O.ZHPS. 1 UhTmETA-OOT  . .*H  DPS.  DATA003) 

2 IOhPhI-oot,  O.ZhPS. °hPSI«  DEG.Ih  / DAT  AO  0 3s 

data  PlDTO  / IOhThETA.  DEG.IH  .ohphI.  OEG.Ih  .IOhEIX  ENG  TH.  DATA003S 

1 HhPOT.  PCT.IOhlONG  STICK. Sh,  PCT , IOhALPha  (l  w,9hING).  DECi.  DAT  A 0 0 3 s 

2 IOhAlpha  (P  w,9mIN(-,),  DEG  , L OHALPhA  (STA.7H8).  OEG.IOhalphA  (EIN.  DATA00  37 

3 am ) « OEG.PHYAw  alpha. IOh(EUS) . DEG, SHFS  CG,  CM.Ih  / OATAOOJd 

Data  plots  / hhu  (Gus T ) . , 3mmps . ohn-X . G'S.Ih  .IOhlaT  STICK. .Ah  PCTDATA0039 

I.IOhCL  (L  pING. 1h) , 10HCL  IP  W I NG . 1 H ) , 9hCl  (STAH).IH  ,8hCl  (EIn).  DATAOOaO 
2 I h , I Omalpha  (EuS.Gh).  DEG.ShhL  CCS.  CM.lH  .9hv  (GUST ) , , 3HMPS/  OATAOOAl 
DATA  PLOTE  /8mn-y»  G'S.Ih  .IOhRUO  pedal, ,»h  PCT,10HCO  <L  WING,  DATAOOAZ 

1 1h),10hCD  (P  wIN&.1h).9hCD  (STAB) , 1 H .dMCD  (FIN).lH  ,9mwl  CG,  Cm,DATA00a3 

2 lH  ,Ym»  (GUST),,  3pwPS , 8HN— Z , G'S.lH  .IOhlIET  THROT.7H  1.  PCT/  DATAOO-m 
Data  plots  / IOhlIET  ThBOT.Th  Z.  PCT.IOhANGLE  LEvE.hhp  1,  PCT,  dataooas 

1 IOhRT  uET  Thp.HhUST.  N .K/haNGLE  LEVE.8HP  Z,  PCT.IOhlEET  jet  T.  DATAOOas 

2 IOhhWuST.  N ,9hEX-T0TAL««3hn  .IOHEx-RT  WING.SH.  N . DATA00m7 

3 IOmEX-L  W I NG • , ah  N , 1 OHF  x-ST  AB ♦ N.ZH  .10HFX-EUS.  N .lH  / OATAOOAd 

DATA  PLOTh  / 10hEx-RT  JET..AH  N » 1 OhEX-LEET  JP.bHT.  N . OATAOOaS 

1 lOHEX-PEACT  J.ShETs.  N .IOhFX-LIFT  JE.7HTS.  N . IOhEx-inlET,  , DATAOOSO 

2 lHN, 10HE X-F IN.  N , 1 h , lOHEX-wElGHT. ,4H  N . 1 0 he x - I NTE RE E . DATA00S1 

3 lOHPtNCF,  N ,9mEY  TOTAL. ,3hn  « 1 OhE  Y-E  US « N .LH  / OATAOOSZ 

DATA  PLOTI  / 10hEY-«T  JET. .ah  n ,10hEY-LEET  JE»6hT,  N , DAT  A00S3 

1 1 OhE  Y-p£  ACT  J.BhETs.  N .IOHEy-LIET  JE,7hTS.  N , I OhE y- I Nl E T , , OATAOOSm 

2 1hn,10hFv-EIN.  n .1h  , I QhEy-WE IGHT « t.H  n .IOhEy-InTEREE.  DATAOOSS 

3 IOhRENCE.  N .9HEZ-T0TAL..3HN  .10HEZ-RT  wlNG.SH.  N / DATAOOSfc 

DATA  PLOTj  / 10HE7-L  wING»»ah  n .IOhEZ-STAh,  n.Zh  .IOHFZ-EuS.  n DAT A00S7 

1 , 1 H .10HF/-OT  JET., AH  N .10HEZ-LEET  JE.TjhT.  N .IOhEz-pfaCT  j,  DATAOOSS 

2 flHETS.  N .IOhFZ-LIET  JE.7HTS.  N , 1 UhEZ - 1 nlE T , .IhN,  DATAOOSS 

3 lOHEZ-wElGHT. .AH  N , lOHFZ-lNTEPEE. IOHRENCE.  N / DAT  AOObQ 

DATA  PLOT w /9HPM-T0TAL, .SHN.M  .IOhPm-R  «ING..7H  N.m  , DATAOOSl 

1 10HRM-L  WING..7W  N.m  , 1 ohbm-ST  AP , n.Sh.m  ,10hRM-EiiS»  N.»  OATAOOhZ 

2 ARM  « I omRm-0 T JET..7H  N.M  .10HHM-LEET  JE.ShT.  N.m  • DATAOOS3 

3 lOHPw-PEACT  J.IOhTS.  n.m  .IOHRM-lIFT  JE.IOhtS.  N.m  . DATAOOSa 

A IOhRm-inlET,  .ahN.m  / DATAOOfeS 

DATA  PLDTl  / 10H9M-F1N.  N..AHM  .lOHHM-GYBO.  N.SH.M  , OATA 0068 

1 IOhPM-INTEREE.  10HPF.  n.m  ,9hPM-TOTAL  . ,6hN.M  ,10hPm-p  WIND,,,  DATA00S7 

2 7M  N.M  .10HPM-L  w I NG , . 7m  n.m  , I OhPM-ST Ah , N.Sh.m  , DATA00H8 

3 lOHpM-Eus.  N..4HM  .10PPM-PT  JET..7H  N.M  .lOHPM-LEFT  JE,  DAT  A00G9 

A 9HT.  n.m  / DATA0070 

DATA  PLOTw  / lOHPM-pfACT  J.IOhtS.  n.m  • 1 OhPm-l IET  JE.  OATAOOTI 

1 IOhTS.  N.m  . I OHPM. t NLE T . .AHN.M  , 10mPm-f  in.  N..AHM  . OATAOOTZ 

2 IQMPM-c.YPn.  N.Sh.m  , 1 Ohpm- i n TE  RE  f , I 0 hwF  , N.m  . vh  ym-tOT  Al  , , DAT4007J 

3 6MN.M  .10HYM-P  w I NG , . 7H  n.m  .IOhYM-L  wING..7h  N.M  . DATA007* 


A 
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* 10rtYM-STA«*  N.Sh.m  / 

Data  PlOTn  / Iumym-FhS*  n.^hm  *10hym-mT  jFT**7h  n.m  , 

1 lOhYM-LhFT  jEiQhTi  N.m  • 1 OHYM-aE ACT  J«1QhTS.  N.m  . 

2 1 0mym-L  I F T JttlUHT^,  N.m  • lOHYM-INLeTt  * <*  H N • m •IOhYM-FIN#  N.« 

3 flOHYM-GYPO*  NtbM#M  • 1 Ohym- I NTEPFE  # 1 OnPt  * N.m  t^lH  / 
fc  NO 


DATA007b 
OAT AOOTb 
DATAQT77 
OA  TA00 
OAT  AO  07* 
OAT A00M0 


SU8POUTIMT  OET 

OETOOOO 1 

COMMON  /ST“D/  Ux ,UY ,uO« VO.T , A <9,21 ,N,NS 

* G (6*2) 

• SL IM , ID , IL 

OET00002 

N1=N-1 

OET  0 0 0 0 3 

K x 0 

OET0001- 

UO=l. 

OET00005 

vo=o. 

DETOOOOfe 

DO  2A0  L=1.N1 

OET  00007 

U = K»L 

OET  00008 

JN= J*N 

OET  00  OC  9 

J1 XJ. 1 

OET 000 10 

K = K • N 

OETOOOll 

IFtUY.NE.O.)  GO  TO  110 

OET  0 0 0 1 2 

IF (A  I J. 1 ) >60,10,50 

DET00013 

10 

DO  20  I=J1,K 

DET0001- 

IF (A ( I , 1 >>  30,20,30 

DET0C01S 

20 

CONTINUE 

OE  T 0 0 0 1 6 

GO  TO  *60 

OETOO 11 7 

30 

UD=-UO 

OET  00  0 1 8 

1*4=I-J 

OET  000  In 

00  *0  I=J.NS.N 

DE  T 00  020 

6MHX I ♦ IM 

OET  00  02 i 

8=1 ( I , 1 > 

OET  u0022 

A ( I , 1 > = A ( IMM, 1 > 

DET00023 

*0 

A ( I MM , 1 ) =P 

DET0002* 

50 

00=00*8  f j. 1 ) 

OET  00  025 

XD*-l./A(J,i> 

OET  0002b 

DO  60  I = J 1 , K 

DE  7 00  0 2 7 

IF (A < I * 1 > .7 F.O.  > All, 11  = A ( I , 1 > *XD 

OE  T 00  0 26 

60 

CONTINUE 

OET  00029 

00  100  m=jn,N6,N 

GET00030 

IF (A (M, 1 ) > 70, 1 00,70 

DET00031 

70 

9J=M- J 

OET  0 0 0 32 

DO  90  I=Jl  ,K 

CET00033 

«.F  (A  ( I . 1>  > 80.90,80 

OE  T 0 0 03 a 

80 

1 C =8 J ♦ I 

OE  T 0 00  35 

A ( I C » 1 > = A ( IC» 1 > *A U , 1 ) »A(M, 1 > 

DE  TO  0 0 36 

90 

continue: 

OETOC037 

1 00 

CONT I NUE 

DET00036 

GO  TO  * A 0 

OETOOO J9 

110 

IF (A ( J, 1 > . NE«  0..08,  A ( J , 2 ) . Nb.  0.  ) 

GO  TO  150 

DE  T 0 0 0**0 

00  120  IsJl.K 

OE  T 00  OA  1 

IFI  A I 1 , 1 ) , NE.  0..0O.  A(I,2)  ,NE • 0.  ) 

GO  TO 

130 

OE  T 0 0 0 a2 

1*0 

CONTtNOf 

Ot  TOOOA3 

GO  TO  *50 

OE  T 00  0 A*, 

r 


NA0C-76313-30 


130 

l’0*-U(J 

DET0004S 

VO»-V J 

OE  T 0 0 0*6 

k***  9-  J 

DET00O*7 

DO  140  I s J ♦ N S * M 

OET  000*6 

I MM: I ♦ 1 M 

OE  T 00  0*9 

00  1*0  »--!.? 

OE  TO  0 OSO 

t* l i i .“i 

OE  T 0 0 OS  1 

AEI .“I  =A  1 |um,«| 

OET  0 0 052 

1*0 

»E 1“M,m) :u 

OET000S3 

ISO 

C*UO#*(J.l)-VO<»A(J.2) 

DETOOOS* 

VD*UD*A ( J,?| »VO*A ( J, 1) 

OE  TO  0055 

OOrC 

DET00056 

AF ( A ( J , 1 ) 1 1 70  « 160 . 170 

OET  00  057 

160 

*0*0. 

OE  T 0 0 05b 

YO=l ./A( J.2) 

OET  00059 

GO  TO  160 

OET  0 0 060 

1*0 

X-  = l ( J.2) / A (J. 1 ) 

OET  0 0 0 61 

XMc ( 1 . ♦ XB*XR> *A ( Ji 1 | 

OET00062 

XO=-l./*M 

OET00063 

YO=XB/XM 

OET  0006* 

180 

00  210  I=Jl.K 

DET00065 

190 

b = X 0 • A ( 1,1)  -YD*  A ( J ,2) 

OET  0006b 

AEI.?)*  Xp*A [ I ,2) ♦ YD*A ( I , 1 ) 

DET00067 

?00 

A ( I .1  ) = H 

OE  TOO  068 

?10 

CONTINUE 

OE  T 0 0 069 

DO  230  Mijm.nS.N 

OET00070 

IF ( A (M, 1 ) .EO.O.  .and. A (M,2;  . 

EQ.  0.  ! GO  TO 

230 

OETOOOTl 

MJrM- J 

OET  00072 

DO  220  I=J1.K 

OE  T 00  0 73 

lf<  A (I.  1 1 .E(J.0..AND.  4(1*2) 

.EG.  0.  ) GO  TO 

220 

DET00O7* 

AC  *M j ♦ 1 

OET  00075 

AfIC.l)=AIIC.l>YA(I.l>*A(M,l) 

-A ( 1 .2) *A (M.2) 

OE  T 0 0 076 

A(IC.?l=A(IC.?).A(I,l)*A(M,2).AtI.2)*A(M,l) 

DET00077 

?20 

continue 

OE  TO  0 0 7b 

?30 

CONTINUE 

DET  00  0 79 

?*0 

CONTINUE 

OET  00  080 

IF (UY ) 2b0 .260.280 

0ET00062 

250 

U0  = 0 . 

OET  0 0 062 

?60 

U0  = U0*>4  (Ns.  1 ) 

OE  T 0 0 0 63 

?T0 

vo=o. 

OET  0 0 08* 

PETUWN 

DET000P5 

?B0 

UO*UO*A (E  S . 1 ) -VO* A (NS.?) 

OE  TO  0 086 

VO*UO*A (NS. 2) .VO«A (NS» l 1 

OET  0008  7 

RETURN 

OET  00  088 

END 

DET00089 

SU9B0UTINE  ELEC  (GAIN! 

COMMON  /TRONIC/  UU(6)  .VV(6)  ,TAU<2?)  .0AMP(22)  , NUMRTS • GA I NB . 
1 IN0EX.STGAINI6) .TSTAR.COELTD.SLOT (3,9) 

GAIN*1. 

I X ■ I NOE  A # 3 


A-2b 


ELEC0001 
ELEC0002 
ELE  C 0 0 03 
ELECOOO* 
ELE  C 0 0 OS 


) 


J 


. *•  Ciszjmb&x: 
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00  <.0  I=1,NU“RTS 

ix*rxM 

U = (llt  ( I ) 

V = VV ( I I 

IF ( V • EQ . 0 , ] GO  TO  10 

IF ( V.NE ,-VV  ( I ♦ 1 ) ) 00  TO  20 

Z = 1 ./  (U«»?.V«»ii) 

T AU ( l X 1 = Z 

DAMP (IX) =-?.»Z»U 
GA IN=GA I M/ 7 

GO  TO  *0 
10  CONTINUE 

IFIO.EO.O.)  GO  TO  20 
DAMP  <IXI=  — l./U 
GAIN=-G A I N«U 
GO  TO  30 
20  CONTINUE 

DAMP (1X1=0. 

30  CONTINUE 
TAU ( I X ) =0 . 

*0  CONTINUE 

IF  (NUMWTS.OE.3)  PETlJPN 

1 X* I X ♦ 1 
TAU( IX ) =0. 

OAMP ( IX ) =0 . 

UU(3) =o. 

VV(3)=0. 

RETURN 

ENO 


ECFC0006 
ELEC00OT 
ELEC0008 
ELEC0009 
ELEC0010 
ELEC0011 
ELFC0012 
ECECOO 1 3 
ELECO  0 1 <• 
ELEC001S 
ELEC0016 
ELECOOiT 
ELECOOIS 
FLEC001S 
ELE  CO  0 2 0 
ELEC0021 
ELEC0022 
ELEC0023 
ElECOO?- 
ELEC0025 
ELEC002& 
ECEC0027 
ELEC0026 
ELEC002R 
ELEC0030 
ECEC0031 
ELE  CO  P 32 
ELECOO? J 
ELECOOJh 


SUBROUTINE  GUST 
COMMON  /STA“AN/ 


COMMON  /MANALZ 


COMMON  /ROMAN/ 


COMMON  /MANARO/ 


COMMON  /STANRO/ 


real  lngthi 


XX.YY.AYl.RlY. AP8G.ARBG.ASEP. AYbG.CGGL l OP  I X .DPI Z . 
R550.AYOMX.O£LTZ.DPIXZ.HDELT.rfBuST.KTCTR.RMASs. 
TWOPI  . VGUST  . I STOP  . XAGUN.  YAC.UN.  YGUST  . Z A GUN  . OE  LT  ?R  . 
P010TR.RDELTI.RUfc.LT2 

Q.Ap.PED.OWG.AlEL.TAXL.TAXR.XAwG.ZAWG.AlCVP. 
ALFIN.  ALLWG.  ALRWCj.CDELE.CDF  IN.COL«O.CORixG.CLtLF. 
CLFin.CLLWG.CLRMU.CwING.CYCRI .CYCR2.PANGE.WGC0L. 
XAELF.XAFIN,XAFUS.XAUET.YAFlN.ZAtLE.ZAFIN.Z»FuS. 
yaele.yafuS.yalwg.yapwg.yaljet.yarjet.zajet. 
ALECRl.ALGEPO.MALFPI  .YGUST W.ZFLWG1.ZFR*c.1 
PI  .77.ALT.T.AP00.APDD.AYDr).0TRR.GMAXV.RATEl  . 
RATE2«ST0P2.xr,(i$T.GMAXVl.i-MAXV2.GMAXV3.GUSTYP. 

LNGTHI .PIlGHI , S TAP T 2 

I.V.NWAG.TOELT.HGIJSTE.HGUSTF.HGUSTW.VGUSTF.VGiisTw 

ygustf .gFwo.glat .overt . vxh, vzh . apo. vyg. aro. ayo, 

C0LSTK .CYSTK 1 .CTSTK2.PE0AL . aye . APE.APE 

Jl .W.LINX .OELE . VSN0. YF IN(2) .ZFEL (21 .CONDI .SWING. 

PILGH2.PWGEL1 


DIMENSION  XSTA (71 .AfiUST(Z) 


GUS00001 
GUSO Oft 02 
5US00OO3 
GUS  00  0 Oa 
gusoooos 

GuSOOO  06 
GUS00007 

gusoooog 

GUSOOCOR 
GUS  0 0 0 1 0 
Gusoon 1 1 
GUSOO  0 1 2 
GUSO  0013 

gusoooih 
iGuSOOOIS 
GuSOvl  0 I o 
GUSOOO 1 7 
GUSO  0 0 1 6 
GUSOO  C 1 •. 
GUS00020 
GUS00021 
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XSTA(1)=S0RT(XX»..2«yy«<'2)-xC,UST 

CALL  VRjO  ( X Af  l*ti  YAP  [N.  7AE  IN. A Yt  .APE  . Ah£  *ST  AtBL  » TV  * 1 > 

>STAi^)=snBTii*».STA)»«>c»iyy»HL|'*^>-)'QUST 

CALL  VH30  (XAELF.0..7AFLE.AYE. ARE. ARE.STA.RL.TV.il 

»STA(3i=soi-T((<«.srA|y*y*(yy*RL)'*®^>  -xgust 

call  VR3  D i x a*:,  . 0 . . ? a»g.  A ye  • APE  » ARE . STA  . SL  • Tv . 1 1 

XSTAmSGRT  ( (XX  »STA  I ( YY.HL)  »*2)  -XGUST 

X 3 7 

IF IGaG.LT .0)  * = <• 

CO  10  M — 1 « a 
AGUST  I “ I =P . 

AGUST  (*x*3)  sO  • 
fcILL  = N 

4.EfO»6.LT.O)  H I LL  = 2 # 

10  XSTA  (M.3>  ixSTA*.  ( ,5-.26<»eiLL>  •C»ING 
GUST  yP  = J 

IEIJ.EO.lO.OB.J.FQ.l?)  GO  TO  60 
DO  50  m*1,k 

IF(XSTA (M| .GE.LNGThI ) GO  TO  20 
4E (XSTA (M) .LE.O. ) GO  TO  60 
AGUST  (“)=XSTA(M)<>RATE1 
GO  TO  60 

20  IF(XSTAIM) .GE.STOR2)  GO  TO  30 
IE(X5TA(m) .Lf .STABT2)  GO  TO  AO 
AGUST  (M) =G“AX V3»XSTa (M>  »BATE2 
GO  TO  50 

30  AGUST  (m)  =r.MAXV 
GO  TO'  50 

*0  AGUST  (M)  =r.MAXVl 
50  CONTINUE 
CO  TO  aC 
60  DO  70  M=l,« 

IE i xsta (M).gt. o.o. and. xsta imi .lT .lngtmi i 

1 AGUST |M) s&maxV 1® (SIN (XSTA (M) ®PILGM1>  > »®2 

IE (XSTA (M).GT. START?. AND. xsta (m) .LT.ST0P2) 

1 AGUST (m ) =Gmax  V2® (SIN ( (XSTA (Ml -S  TART2 ) ®PILGh2> ) ®®2 
70  CONTINUE 
80  FGUSTw  = AGiiST  ( a ) 

IE (K .E0.7 ) HGUST«=.?S« ( AGUST (A) * AGUST (5) ♦ AGUST (6) ♦ AGUST (7) ) 
IEIJ.GT.10I  GO  TO  NO 

CALL  VP3D  (0. .0. , BGuS T W . A YE . APE « Are « HGUS T w . YGUS T w . VGUS T W . - 1 ) 
CALL  V°30  (0. .0. .AGUST (3) . AYE  . APE  .ARE  .HGUSTE  . TV  . VGUSTE  .- 11 
CALL  VR3D  ( 0. . 0 . . AGUST ( 2)  . AYE  . APE . ARE .HGUSTE .YGUSTE . Tv.-l ) 
CALL  VH3D  (0. .0 . . AGUST ( 1 ) .AYE  .APt, ARE .HGUST.yGUST .VGUST.-l ) 
RETURN 

90  CALL  VR3D  ( ROUST w . 0 ., 0 .. AYE . APE* ARE .HGUSTrf , YGUSTW . VGUSTW 1 ) 
CALL  VR  30  ( AGUST ( 3 I . 0. .0. . A YE . APE, ARE .HGUSTE . TV . VGUSTE .-1  ) 
CALL  VR3D  (AGUST (2) .0. . 0. .AYE .APE .ARE .HGUSTE . YGUSTE , TV .-1 ) 
CALL  VH3D  (AGUST (1) .0..0,. AYE. APE, ARE. HGUST.YGUST. VGUST.-l) 
RETURN 
(NO 


GUS00022 
GUSO  0 0 23 
GUS0002A 
GUS00025 
GUS00026 
GUSO 002  7 
GUS0002H 
GUS00029 
GUS00030 
GUSO  0 0 31 
GUSO  0 0 32 
GUS00033 
GUSO  0 0 3*. 
GUS000  36 
GUS00036 
GUS00037 
GUS00038 
GUS0003N 
GUSOOOAO 
GUSOOOa 1 
GUSO  0 04  2 
GUSO  0 0*3 
GUSOOOA* 
GUS00045 
GUS00046 

GUSOOOaT 
GUS0004H 
GUSOOOAs 
GUS00050 
GUSO  0 0 51 
GUS000S2 
GUSOO  053 
GUS00054 
GUSO  0 0 55 
GUS00056 
GUS0006T 
GUSOOOS6 
GUSOO  069 
GUS00060 
GUS0006 1 
GUSOO 062 
GUSO 0063 
GUS0006® 
GUS00065 
GUSOO  0 66 
GUSO  0 06  7 
GUS00066 
GUS0006R 
GUSOOOTO 
GUSOO 0 7 1 
GUSOO  0 72 
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SURROUT  INF  IMT 
CO"“ON  /FORCF/ 
COMMON  /STPI"A/ 

1 

2 

3 

* 

5 

COMMON  /STA“AN/ 

1 

2 

3 


A l 7*  ) 

AY.Vm.AGL.IXZ.XXQ.YYO.ZZO.alGF.APFP.AYFP.CGHL. 
COLL  ( 6 ) .CYCF(3).CyCL(3)  .OIST.»CITl20)  ,HFOa (3)  , 
TI“F.TMax.ACIT<2U,o),ALG£/.AL',EI.ALGE2.CGSTA, 
CPHIC.OIXIZ.DIyIX.DIZIY.FTKTS.kkEAO.PI'ISQ. 
TSTAR(lA)  .Zmax2.ZMAX3.ASEC0L.CYPHIC.R'JDIN0. 

70ELT 1 , Z0ELT2 

XX.YY.AYl.HIY.ARHG.ARHG.ASEH.AYaG.CGGL.CPIX.OPIZ. 
R550.AYDMX,0£LT2.0PUZ.nDELT.HGL;ST.kTCTR,RmaSS. 
T40PI  . VGUST  . ISTOP.'XAGUN.  YAGUN.  YGUST  . ZAGUN.DELT2R  . 
pOIotp.RDELTI , ROEl  7 2 


COMMON 

1 

2 

3 

A 

5 

Common 

1 

2 

Common 

1 

2 

3 

Common 

1 

1 


/MANALZ  Q.AP.PEO.OwG.ALtL.TAXL.TAxR.xAwG.ZAWG.ALCYP. 

ALFIN.ALLWG.ALMOG.CDELE.COF in.cdlwg.corwg.clelf. 
CLFIN.CLLAG.CLPAG.CWING.CYCRl .CYCR2 .RANGE .8GC0L  « 
XAELF.XAFIN.XAFUS.xAJET.YAFIN.ZAtLE.ZAFlN.ZAF  us. 
YAELF.YAFUS.YAL»o. YARWG.YALJET.YARJET.ZAJET. 
ALECRl « ALGFPD .hAlFPI ,ygust« .ZFLKGl.ZFRAGl 
/HO" AN/  PI .zz.alt .T .APOD. APDD.AYDO.OTHH.Gmaxv.HATFI . 

RATE 2 .ST0P2  .XGliST  .GMAXV  1 .GMAx  V2  ,GMAX  V 3 . GuSTYP  . 
LNGTH1.PILGH1.STAHT2 

/HANARO/  I . V .NW  AG.  TOELT  .mGiiSTE  . MGUSTF  . HGUSTW  . VOUSTE  , VGiJSTW 
yGustf .gfwo.glat .gveht.vxh.vzg.apo.vyh.ard.ayd, 
COLS  TK  . C YS  TK  i .CYST*?. PE DAL. AYt. APE. ARE 
,TLSTK(2).ThlST*(2)  .DUM  (6)  .CiFL  AP  1 
/TOPLOT/  A H ( 3 ) . AL ( 3 ) .EXIT.1CCMI20)  .JPSN. 

NPAPT iNVAPA .NVAHB .NVAHC .NSCAlE 
.nvaps.nprint.ntimf 


common  /fopy/  r(A.iso) 

COMMON  /LJFTS/  NJETL.ATEM(92) .TLJET16) .riTEM(2S) .DPSJTH6) 
COMMON  /P jfTS/  NjETp.XSTK  ( 3(  .CTEM  ( i 1 A)  . T Jt:  TR  ( i 0) 

COMMON  /CONTP/  ADISP ( 3) . ARATE (3) .DELTA (A) ,THR (2) .RPCT (3) 
DIMENSION  PAR ( I 35) . AI ( 7a) 

DATA  OTHP1/57. 2957795/ 

OATA  LH.LH/5.6/ 

Data  XNP,f-,xIC,FPNm/4. *482, .30*6, 2. 54, 1.3558/ 

00  10  J= 1 , 3 


JJ=4- J 

PAR(J«70|rY(I.J.89)«FM 
PAR ( J ♦ 7fo  ) =Y ( 1 , J * 1 A ) «f M 
PAR ( J*  d2 ) =Y ( 1 » J*  75) «FM 
PAR ( J ♦ 85 ) =Y ( 1 .JJ.7o) aQTRRI 
PAR ( J-89 ) =Y ( 1 , J 1 ®FM 
PAR ( J*  92 ) =Y ( 1 , J J*  3 ) onTRRl 
PAR(J*96I=yU,J.6AI»PTHP1 
PAR ( J»99l iY ( 1 . J»  9 ) AQTRP 1 

10  CONTINUE 
DO  20  J*  1 ,6 
PAR (J) *TL JFT ( J) »XNP 

20  PAR  I J»6) *npajTL (J) »87. 2957795 
DO  30  J=  I . 1 0 

30  PAR ( 1 2 ♦ J ) = T JF  TR (j) * XNP 
PAR (231 AXSTK  I 1 1 «x 1C 
PAR  <2* 1 = DFL  T A ( 1 ) oOTRRl 
PAR (25) SXSTK ( 2 ) *x I C 


INI T000 1 
In  i room 
I N I T 0 o n 3 
IMTOOYi* 
I N I T 0 0 05 
IM  TOOOb 
I NI TOOO  7 
INI  TO  008 
I N ! • 

I N I T 0 ! 0 
I N I T 0 1 11 
IN ! TO  0 1 2 
INI T001 3 
I N I T 0 0 1 » 
INITU015 
INITuOIfr 
INI T001  7 
INIT0016 
I N J T 0 0 1 9 
INIT0O20 
INITO021 
IN  I T 0 022 
I N I T 0 0 2 3 
IMT0  02- 
INI T0025 
IN  I T 0026 
I N I T C 0 2 7 
INITOO/h 
INIT0029 
INI T 0 0 30 
IN  I T 0 0 3 1 
INIT0032 
INJT0033 
INI  7003- 
IN  I T0C35 
INI  7 0 „ 36 
INIT0037 
INIT003A 
INIT0039 
I N I T 0 0 a j 
ini tooai 
I N T T 0 0 *2 
INIT00A3 
INI TC0-- 
IM  700*5 
INITOOAb 
IN  I TOO- 7 
INIT00-8 
INI T 0 0 A 9 
IN! TOC50 
INIT0081 
IM  10  052 
IN . TO  05 3 
IN! T005- 
INI T0055 


A-29 
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PAS l 2b)  = 0F|_  TA  ( 2 ) «0TOP  1 
PAS ( ? 7 > IPPCT ( 1 I » 100 . 
PAP  (2b)  =ThD  ( 1 ) * 0 T S P 1 
PAS(?'#1=OP|TA(<.)»OTP01 
PAR<30)=PPCT(2>®1U0. 
PAS ( 31 1 = TsR ( 2) »orss I 
PAR  ( 3?  ) =X  =>TK  ( 3 ) « i I C 
PAS  (33)  =OPlTA  ( 3 ) *1)  fsP  1 
PAR(3»>=»PCTIJ>®100. 
PAP  ( 70  ) =OFL  API 
PAP  ( 7*  I *0  I « T«F“ 

PAS (7b)  T«  TS 

PAR(7b)=AYFP»0TSS 
PAS (HO) i-OAP ( 7s ) 

PAP  ( b 1 ) i VhoF  T«  TP 
PAR (62) =APFP*0TPR 
PAR  (MS) = Y I 1 »bY| ®OTRPl 
PAP (96) =Y I 1 . 1*>  *0TPP1 
PAP (103) =COLSTK 
PAS  ( 1 U*  ) =CYST*  1 
PAP(10b)=ALLP&°0TRS 
PAP ( 10b) =AL°*b*DTSP 
PAP  (107)  =ALf'L*OTPR 
PAP  ( 1 0M)  =ALP  IN*>DT»R 
PAS ( 109) =AY»nTPS 
PAR (110) =CPSTA«X  IC 
PAR (111) =MRUST 
PAS  ( 1 12  ) =-r,PsU 
PAP  ( 1 13)  = Cy<5T*2 
PAS( 11*) =CLL«G 
PAR (lib) = CI_PwG 
PAS ( 1 lb) =rLFLE 
PA«(117)=CLf  V* 

PAP  ( 1 1»)  =ap»CjTpp 
pap  ( l is)  =cr.ML<»* ic 

PAR (1201 =YPUST 
PAP  (121)  =-<-,|_AT 
PAR ( 122) fPFOAL 
PAP ( 123) SCOLWO 
PAP  ( 1 2*  ) = cr>P*6 
PAP  ( 12b)  =CPFLE. 

PAP (12b) =COF  IN 
PAP  ( 127)  =Cr.wL**IC 
PAS ( 1 2b ) =VOUST 
PAR  l 129) =GVf or 
PAP (130) ITLSTK ( 1 ) 

PAR (131) STLST* (2) 

PAP  ( 132)  =TU(_ST<  ( 1 I 
PAR (133) =TAXP°«NP 
PAP (13*1 =ThLSTK (21 
PAR  I 1 3b)  =TAXL*ANP 
00  *0  K=1.15 
*0  A1£Y)=A(X)*XNP 
CO  50  K=36.7A 
50  A 1 (K ) *A (K ) »FPNM 


•I  A-30 


'-A 


*> 

• -A 


IMT0056 

INIT0067 

INITOOba 

INIT005S 

INITOObO 

INIT0061 

INir00b2 

INIT00b3 

INI T006* 

IN  I TO  065 

IN  I TOObb 

INI T00b7 

INlTOObb 

INITOObP 

INIT0070 

I N I TO  0 7 l 

INIT0072 

INIT0073 

INIT007* 

INI T0075 

INIT0076 

INIT0077 

INITOOTb 

INIT007R 

INITC0«0 

INIT00P1 

INIT0002 

INIT0083 

I NI TO  08* 

INlTOObb 

INIT00S6 

INIT00M7 

INlTOObb 

I N I T 0 0 8 9 

INITOOPO 

INIT00P1 

INIT00P2 

INIT0093 

INITOOP* 

INITOOPb 

INITOORb 

initoopt 
Initoors 
INI  TO  0P9 
INIT0100 
INIT0101 
INIT0102 
INIT0103 
INIT010* 
INIT0105 
INI  TO  1 06 
INIT0107 
INITO 108 
INIT01 OS 
INIT01 10 
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IF  ( nPaRT  .CQ.  1 .OH  .NPaRT  .f  0. 7 .OR. NPART  .Ed.  I 0. OR. NPART  .E  3.9)  GO  TO  bOINITOlll 


XRITE  U)  IPSN.T.PAR.Al 
Tl^f  . 13b  PAH'S.  7x  A-S 

NT I“F  =NT I“F  ♦ 1 

AF  {NT1MF  • GF * NBP I N T ) NT  I ME  =0 
IF  (NT  IMF  .►  F.O)  PFTUBN 
60  CONTINUF 

call  T IMF  X I TUSEO.DT Im£,TLEFT ) 

• one  (l». to)  t.tusfo 

XPITE  (Lx.HO)  (PAR ( j)  , J = 7 1 .02  I 
xBITE  (LX. BO)  (PAH ( ji . J = 03 . 1 021 
XBITE  (LW.100)  (PAH ( j) . J=10J. 129) 

XBITE  (LX.I10)(PA«(j|.J=130.13b)*OFLAPl 
CALL  xBFP 

x»ITE  (Lx. 120)  (PAP(j) » J = 1 *22) 

XBITE  ( b . 1 3 0 ) (PAR (J) .3=23. Jx) 

HE  T uHN 

70  FORMAT  ( lM 1 . 10X  .F8 .3, 3X .21HSECONOS  "AnEUVFR  TImE.IOX. 

1 F8,3.3x«30hmjnltfs  Elapsed  computing  time.sx, 

2 28MNExT0NS.MFTBES.0EG.StC  UNITS) 

BO  FOHmaT  ( Iho .Sox , I6hguOUND  RtFEBc-NCE./ 


INI  TO  1 12 
INI TOll 3 
I N I TO  1 I* 
INIT011S 
INIT01  16 
INI  TO  1 1 7 
INI  TO  1 1 X 
INIT011B 
INI  TO  120 
INI  TO  121 
INI TC 122 
INI  TO  1 23 
INIT012- 
INIT012S 
INI  TO 12o 
INI  TO  127 
INIT0128 
INIT0129 
IN  I TO  1 30 
INIT0131 


38X  . 1HX  ,9X  . IhY.SX  . 1HZ  .2*X  ,2bhSPEE0  (NTS)  FLT  PATH  ANGLES/ I N I T i 1 32 


2 22x  . 10HVELOCITY  .jFIO.j.IIM  DISTANCE  .Fb.l.  INIU.33 

3 6H  AIR. F7. 2.10m  HEADING  .F d. 3/  IN  I TO  1 3x 

A 22X . 1 OMLOCAT ION  . 3F 10. 3.11m  ALTITUDE  .Fa.lt  INI*013S 

S 6M  GNO  .FT, ?,10m  CL  I mo  .Fa. 3)  INIT0136 

90  FORMAT  1 Imo « 57  X « 16MFHSELAGE  REFERENCE./  INIT01J7 

1 20X  . 1MU.SX  . IhV  . 9X  . lM«  ,9*  . IMP, MX  . ImQ  .9x  . iHR.  IMT013-! 

2 17X.2XHFULEP  ANGLES  EBOM  GROUNO./  IN1T0I39 

3 Sx.SHACCEL.Sx.7Fl 0.3.1  ox. JmPS I . 6 X , ShThE TA. 6X . 3mPm I , / IN  I TO l A 

* Sx.lOMVELOCITY  . 7F 1 0 . 3 «3x . 1 OHVEtOC I T Y .3E10.3,/  INITOlxl 

5 68X.  IOmlOCATION  . 3F  10.3)  INIT01*. 

jOO  FOBMAT  ( 1M0.6X  . 13MCONTB0L  (PCT)./  IMT01-3 

1 7x,8MThP0TTlE.3x.F7.2.sX» 16ML.  xlNG  R . xlNG.  TMT0I4. 

2 *X  .5MHSTA8.4X  . lbMVSTAB  F USE  L AGE  , T X , 1 3hC  .6.  LOC  (CM),  IMTOlxS 

3 6x , 1 SmguS  T (CG)  G-S.2  INIT014- 

A 7 X « 1 1 ml  ONG  STICK  .F7.2.0H  ATK  .xF9.3,  INIT01-7 

5 7 H ATky  .FM.3.12H  STA.  LINE  .F7.2,  INITOlAo 

b 7M  FxO  .FS.1.7H  FWO  .FS.2,/  INITCIab 

7 7 x ♦ 1 1 ml  AT  STICK  , F 7 . 2 » bo  CL  .AF9.3.  IMTCi' 

6 7m  ATKP  .Fm.  3.12H  b.  LINE  .F7,2,  IMT01S1 

9 7m  LAT  »F5 . 1 . 7m  l*T  . F S • 2 . / INIT01S. 

A 7x.SmbE0AL,6x.F7.2.6m  CO  »4F9.3.17x.10nx.  LINE  . F7 . 2 , I N I T 0 1 S * 

b 7m  VERT  .FS.1.7H  VERT  .FS.2)  INIT01S- 

1 1 0 FORMAT  ( 7x . 1 1 ML  TmBOT  1 . F 7 . 2/ 7X , 1 1 ML  THHO T 2 ,F 7. 2, 1 OX .6MF I xEO  TNI701SS 

1 .10MJFT  THRUST/7X . 1 lML  ANGLE  1 . F7 . 2 , 1 OX . 12HP I GHT/CENTER • I N ; T 3 1 so 

2 FH.1./7X.UML  ANGLE  2 . F 7 . 2. 1 0 X . »MLEF  T . BX  . FB  . 1 , IMTJ1S? 

3 10X.16MFLAP  oFFl . (OEGI.FS.I)  INIT0IS8 

1 20  FORMAT  (lMO.SIX.lVMMnvASLE  J FT  SUMMARY.  21h  ,10m  HOZllE.  .4X.1M1,  INITOlsv 

1 B X , lh2 . 8X  . 1m3  . OX  . lo4  . HX  . 1ms  , bX  . IMS/ 1 1H  THRUST  , IN'.TOlsO 

2 6F9.1/11M  TMETA-J  .6F9. 1//1H0 .S6X , INI  TO  I si 

3 20MRE  ACT  ION  JFT  SUMMABY/llH  NOZZLE  .4X.1M1 ,8X, 1h2.«x , I N T T 0 1 S 2 

A 2m3.8X.1m4»8x,1hS.ox.1m6.8x,1m7,0X.1HH,bx,1h9.8x.2m10/  IM  TO  16 3 

S 1 1 H THRUST  . 1 0F9 . 1 ) INIT01S4 


I N I T 0 1 S 7 
INIT0ISO 
. A X . 1 Ml  , IN  I TO l ' 9 
► INITOlbO 

INITOlSl 
l m2 , ft  x , I N T T 0 1 s 2 

?Ml  0/  IMTO  163 

INI  TO  1 sa 


130  FORMAT  (1mo.S9x,ISmCONTPOL  SUMMARY/27M  CONTROL  DEFLECTIONS  ( CM ) • I N i T 0 1 Ss 
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1 9x.2ShSI|PFACF  DEFLECTIONS  ( DEG ) .2 7x . OhRCS  DATA,//  . INIT0166 

2 17M  LONG  STICK  .Fh.2, 12x. IOhSTAHIL IZER. 7X.F6.2.27X . INIT0167 

3 20WPCT  THETA  (DEG)/17H  LAT  STICK  .F6.2, 12x,  IN  I TO  1 6b 

* an A I L EPON S • R x • F a • 2 • 1 7 x « JaF fP * ax #F S • ) • MX . F S . 2/ 3S X . INIT0169 

5 MmSPOILFPS.RX .Fb. 2. 1 7X , JMAFT ,bX .FS. 1 . ax .Fa. 2/3m  PEDALS.  INIT0170 

6 9x ,Fb.2. 12X .6HWUDDEP. 1 IX «Fb.2. 17x .smlEFT/PT  .Fb.l)  INIT0171 

EnO  I fa  I T 0 1 72 


SUGPOUTInf  IT«IH(LPASS) 

COMMON  /StoIAo/  E ( 7*>  .f (b)  ,x (6)  • T 1 (9)  .PO (b. 7 ) ,T2 (2) .ERR (b> .kmi , 

1 T3(?*2>  .OAMP.T*  ( 12)  ,EPOX  ( 11  I t TS  (B3>  .NPASS. 

2 POPmi (b.7) .76(31 «MXPASS«XLIMIT 
COMMON  /manal/  T 7 (S ) , T AXL « T Axp • Ta ( 36 ) . HALEP I 
COMMON  /manALO/  T9  l 1 3)  . VXB. VZR.  APQ.VYH. AHU. AYD. 

2 COLSTK.CYSTKl .C7STK2.PEDAL.AvExAPE.A9E 

3 .TLSTK(2)«THLSTK(2).AT.BT.CT.ATH,eTH.CTH 
COMMON  /STANPO/  j.f.TIO (7) .CONDI 

common  /toplot/  ahi3) «al (3i .exit 
common  /FOPY/  v(*.]S0> 

DIMENSION  VAP ( 1 I ) .Pm (b , 7) 

EQUIVALENCE  (VAr  ( 1 ) .COLSTK  ) 

KOUNT=7 
K m 1 sk  OuNT - 1 
NP  ASS - 0 
FPASS=-1 

CALL  TIMEX  (TUSED.OTIME.TLEFT) 

10  NPASS  = NPASK ♦ 1 
FPASS=KPASS. 1 

IF (KPASS.FO.LPASS)  KPASS=0 
IF (CONDI .NF .0.  ) MPITF  (6. ISO)  nPASS 
J=  1 

CALL  AJACOP 

IF (EXIT.NF.O.)  GO  TO  110 
00  20  Ks 1 .k  Ml 
20  PO (K .KOONT ) =-F (K ) 

DO  30  K= 1 . F Ml 

IF ( AGS (F (f ) ) ,GT .OAMPI  go  TO  *0 
30  CONTINUE 

CALL  OAmpfp 
*0  CONTINUE 

DO  SO  K=1 ,fmJ 

IF ( AbS (F (f ) ) .GT .EPS (K ) ) GO  TO  60 
SO  CONTINUE 
GO  TO  120 
60  CONTINUE 

IF (kPASS.GT.O)  GO  To  60 
J = 2 

CALL  JACORI 

IF (f  X IT .Nf  .0. ) GO  To  110 
IF (FOUNT. FO. 7) 

1 CALL  V03D  (7 (1.90) .7(1.91) .7(1.92) .AYE. APE. AHE.VX0.VYB.VZ8.-1) 


ITPIOOOl 
1TRI0002 
1TPI0003 
ITRIOOO* 
ITRIOOOS 
1TRI0006 
ITPI0007 
ITHI 000a 
ITRIOOOS 
ITPI0010 
ITPI0011 
ITRI00 12 
ITRI0O13 
1TPI001L 
I TP  I 00 1 S 
ITPIOOlb 
ITR1001T 
ITRI001B 
ITRI0O19 
ITPI0020 
I TP  10  021 

rr»ioo22 

ITPI0023 
1TPI002- 
I TP  I 0 0 2S 
ITRI0026 
ITRI0027 
I TP  I 0 028 
ITPI 0029 
ITRI0030 
ITRI0031 
I TR I 0 0 32 
ITRI0033 
ITPI003* 
ITRI003S 
ITRI0036 
ITRT0037 
ITPI003H 
ITR100J9 
ITR I 00*0 
ITRI00*1 
ITPI0042 
ITRIOOAJ 


A-32 


r 


NADC-7e>313-30 


00  70  1=1.6 

IT&I0044 

! 

F I =* . **62? 

ITRIOO*b 

JEII.GT.3)  F 1 = 1 . 355*2 

I TR I 0046 

DO  70  J=  l • 7 

ITPI00*7 

70 

PM  ( I , J)  s P F,  ( I , J ) <*F  1 

I TR I 004« 

I F ( CONI)  1 . NF , 0 . ) CALL  *RVP  (2,VAH»KM1,PM,TAXL.TAXR) 

ITRIOO**S 

60 

cont  inuf. 

ITR IOOSO 

DO  90  U=l. FOUNT 

I TRI OOSJ 

00  90  1=1, K“1 

ITRIO0S2 

90 

PDPMl ( I . J) =P0 l I . J) 

ITHI00B3 

CALL  SOLVF 

I TP  I C 05* 

IF (EXIT. N P.0,)  GO  TO  130 

ITRIOO-b 

CALL  RATI  ( X ,EPOX »XL IMI T . VAR, AT >BT ,CT . aTm .BTh.CTH) 

I TR I 00S6 

DO  100  1=6,7 

ITRIOOST 

IF ( ABS ( VAR ( I ) ) .GT .HALFP I ) GO  TO  110 

I TR  r 0066 

o 

o 

CONT l*U£ 

I T R I 0 059 

IFINPASS.LT. MXPASS1G0  TO  10 

I TRI 0060 

lio 

E X I T = 1 • 

ITRI0061 

120 

continue; 

I TP  I 0062 

call  para  (W, CONDI) 

ITRI0063 

RETURN 

ITRI006* 

130 

CONT INuE 

l TRIC06S 

*«ITE  (6*140) 

ITR;006t 

RETURN 

ITRI0067 

1 A 0 

FORMAT  ( 1mO.*1hThE  PARTIAL  DERIVATIVE  MATRIX  IS  SINGULAR,/ 

ITR 10066 

152H  this  is  PWORAMLY  DUE  TO  A control  being  UNCONNECTED) 

ITRlCOft^ 

150 

FORMAT  <1h1/1H  ,50X ,2Sh»®»«»  START  OF  ITERATION  ,I3.bH  •••••) 

ITRI0070 

ENO 

ITRI0071 

ai 

K 


1 

2 

3 

* 

5 

1 

2 

1 


SUBROUTINE  IvAR  (EXIT. LIN*. TAxl»TAxP.PILGh2| 

COMMON  /ST  El “A/  AY.VH. AG*. I XZ .XXD, YYD.ZZU.ALGF  , APFP  . AYFP,CG«L . 

COLL (6) .CyCF<3).CYCL13I.UIST.KCIT(20).bEPA(3I, 
TIME.TMAX.XCIT (F0.6) .ALGEZ.ALGEl ,AlGE2.CGSTA, 
CP*IC.DlXIZ.DIYtX,OIZIY.FTKTS.NREAO.PIU30. 
TSTah(1*).Zmax2»Zmax3.ASECOl.CYP»IC.RUDIND. 
ZOELTl .7DELT2 

COMMON  /ROMAN/  PI .77. ALT »T ,APDU. ARDD. AYOn.DTPP.GMAXV .PATE  1 . 

RATF2.ST0P2.XGUST  .GMAXV1  «<•.“  A x V2  , GMAX  V 3 « GUST  YP  , 
LNGTHl  .PILGhI  ,STAPT2.0DAl,0DA2.DL)Aj 
COMMON  /LjETS/  NJETL.XAUETL (6) .YAJETL (6) .ZAJETL (6) .APBJTL (6) . 

APB JT  L ( 6 ) .CONLJI2.5) .NC0NLI6) 

COMMON  /Mp  T 1 / T1 (553) .XCM(20.b) 

PEAL  L NGT m 1 , LNGThE 
DIMENSION  TAX(2) 

OATA  DTr.trOPI/ • 17*S329E-01 ,6,253185/ 
X0ELIM(X1,»2,X3)=AM4*1(X1«AMIN1(X2,X3)) 


TAX ( 1 I =TAxL 
TAX (2) =TAxR 
DO  2H 0 L = 1 , K PE AO 
JsKCIT (L) 

IF ( J.LT. 1 .OP. J.GT.31 ) GO  TO  290 


IvAPOon i 
IVAR0002 
I VAPOC  13 
IVAR00n« 
! V APOO  OS 
IVAP0006 
I VA BO  00 7 
IVAR0006 
I V APOO  09 
IVAROOIO 
IVAPOOI 1 
IVAR00I2 
IVAROO 12 
I VAROO 1 3 
IVAROO 1* 
IVAP0015 
IVAROOlt 
IVAPOOI  7 
IVAROOlt) 
IVAR0019 
IVAR0020 
IVAR0021 
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IFlLlNK.tO.il  GO  TO  10 

I VAWOO?? 

IF(J.EQ.U)  00  TO  UO 

I VAR0023 

IF  < J.EO.FJ  I GO  TO  £90 

I VA»002<* 

IF  1 j.to.??)  GO  TO  £90 

I VAD00?b 

GO  TO  £60 

I VAR00P6 

10 

CONT I Not 

I V AW00?7 

*0[TE  (6.3001  J . 1 XCm  (L.F).K=1.6I 

r vapoo;?** 

IFij.GT.ki  GO  TO  110 

I VAPOO^'V 

GO  TO  (£0. 30.  •>U.  SO.  60. 70. 60. 90).  J 

IV AP0030 

£0 

DA=10l./COLL (11 

I VAWOO  31 

GO  TO  100 

IVA»003<? 

30 

OA=1QO./Ocf ( l 1 

1 VAROO  33 

GO  TO  IOC 

I VAP003h 

*0 

DA= 1 00 . /CvCL ( 1 1 

IVAR0035 

GO  TO  100 

I VAP0036 

5pO 

DA=100./FFO« ( 1 ) 

IVAQ0037 

GO  TO  100 

IVAR003H 

60 

DA  = 1 0 0 . /CO. L J ( 1.1) 

I V AR  0 0 3^ 

GO  TO  100 

IVAR0040 

70 

DA= 100 ./COFL J (£« 1 1 

I VAR004 1 

GO  TO  100 

I VAR004a? 

60 

DA  = 1 0 0 • /CONL  J ( 1 .£) 

I VAR0043 

GO  TO  100 

I V ARC  Q«*4 

90 

DA  = 100./CO\'LJ(£»?) 

I VAR0045 

JOO 

XCI T (L .£) =*CI T 1 L . £ 1 ®OA 

I VAW0046 

XCIT  <L*b)  = «CIT  (L.6)  »PA 

I V AR  0 0 A 7 

IF (XCI T (L . 3) .Eu.O. ) GO  TO  £60 

I VAR0048 

IF (XC IT (L .4) .GE.xCI T (L.3I .ANO.xCIT (L.6) .GE.XCIT <L.*)  I GO  TO  £60 

I VAP0049 

XC I T (L . A ) =6999. 

I VAP00S0 

XCIT (L.6) =9999. 

I VAR005 1 

GO  TO  £60 

IVAR00S2 

1 10 

IF ( J.GT . 1?)  GO  TO  130 

I V A WO  05  3 

XGUS  T = xc I T (L. 1 ) 

I V AWOOSh 

G9AXVl  = XCIT  ( L > £ ) 

I VAR005b 

LNGTH1=XCIT (L* 31 

I V A WO  0 -^5 

START£=xCIT (L.9) *LNGTHl 

I V AROOS7 

LNGTR£sXC  I T (L  .9) 

I VAR005H 

G6AXV£=XCIT (L.9) 

I V AR005P 

STOP£  = STAPT£*i.ngth£ 

I VAWO  050 

IF ( J.EQ. 1 O.OR. J.EQ. 1£)  GO  TO  1?0 

I VAR0061 

RAT£1=0. 

I VAR005^ 

IF (LNGThI .HE.O. ) PATFl=GMAXVl/LNGTHl 

I VAW0053 

RATE£-0. 

I VAH0054 

IF (LNGTh£.nE.O.  ) RATF£  = GMAXV£/LNGTH£ 

I VAR0055 

GHAXV=G“AXV 1»GMAXV£ 

I VAW0055 

GMAXV3=GMAxVl-bTAWT2*RATE£ ’ 

IVAR0057 

GO  TO  £60 

I V A WOO50 

1 20 

PTLOHl=0. 

I VAW005* 

IF  (LNGTmI  .M.O.  ) PlLGHl=PI/LNGTHl 

I VAR0070 

P I LGh£  = 0 . 

IVAW007 1 

IF (LNGTh£.hE.O. ) PtLGH£«PI/LNGTH£ 

I VAR0072 

GO  TO  £60 

I VAW0073 

130 

F * J-  1 £ 

I VAWOO  7h 

GO  TO  (£6o.£6U.£60.£60.1S0.160.170.1bO.£90.£60.£90.£60.£60. 

l VAR0075 

1 £60. £90. £90. £90. £90. 190) .K 

I VAW0075 
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1*0  lNOIC=XCIT  < L « «T  > *.01 

IF < INUIC.NF .2)  G 0 TO  280 
lNOIC=XCIT (L.M  ..01 

IF  ( 1NiOIC.lt  . 1 .OB.  lNnTC.GT.2l  GO  TO  290 
XC 1 T (t_«5  ) =tjx ( INOIC ) 

XC  IT  (L.2 ) =1  . 

GO  TO  2b  0 

150  XCIT(L.2)=  XCIT (L'2> *100./ (0EDA U ) *0TH) 

C’Q  A 3 = 0 . 

GOTO  280 

160  XCI T (L t 2 ) = XCIT <L .2) /CYCL (31 
<CIT(L.3)*XCIT(L«3)/CYCL<3) 

C-DA?  = 0 . 

GOTO  280 
170  CONTINUE 

XCIT  (L.2)  = x C I T (L.2J/CYCF  (3) 

XCIT(L.3)=«CIT(t.3)/CYCF(31 
XCIT (L,*)=xCIT ( L , * ) ttOTR 
OOA 1 *0 . 

GOTO  280 

180  XCIT (L,2)=xCIT (L.2)*TW0PI 

XCIT<L.0)=xCIT(L,3)»xCIT(L.2) 

K»XC IT ( L • 5 ) ♦ . 1 

IF  (tt.LT.  1 .OR.K  .GT.8)  GO  TO  290 
GO  TO  (200.210.220.230.2*0.250.280,270) ,K 
190  CONTINUE 

IF (XCIT (L.3) .LE.xCIT(L.I) ) .XCIT (L. 31=9999. 

IFfXCI'T  (L  , 5 ! .LE.xCIT  (L.3)  ) XC  I T ( L . 5 I =99999  . 

GO  TO  280 
200  CONTINUE 

XCIT(L.3)=xCIT(L,3)MOO./COLl(l> 

GO  TO  280 

210  XCIT (L.3) =xCIT  U.,3) »100./CYCF (1) 

GO  TO  280 

220  XCIT (L.3) bxCIT ( L . 3 ) « 1 00 . /C YCL ( 1 ) 

GO  TO  280 

230  XCIT (L.3) = X C I T (L.3) MOO./PEDA (1) 

C-0  TO  28  0 

2*0  XCIT (L.3) =xCIT (C.3) * 1 00 ./CONL J ( 1.1) 

GO  TO  280 

250  XCIT (L , 3 ) =XC I T ( L . 3 ) « 1 0 0 . /CONL J ( 2 . I ) 

C-0  TO  28  0 

260  XCIT (L.3)=xCIT (l.3)*100./CONLJ(1,2) 

C-0  TO  2H0 

270  XCIT (L*3)axfIT  IL»3)*100./CONLJ(2,2) 

280  CONTINUE 
RETURN 

?90  b«ITF  (6.310)  L.J 
f X I T = 1 . 

RETURN 

300  FORR  AT  (1m  .25X . 1 1 0.6F1 0.3) 

310  FORMAT  (2*mOChECK  PART  2 OATA  CARO  .I2.11H  J COOE  IS  .12) 
f NO 


I VAUUO 7 
IVAO007 
I V A fl  0 0 7 
I V A R 0 0 8 
IVAROO 8 
I V A R 0 0 8 
I VAR  0 08 
IVAR008 
I V A R 0 0 9 
IVAR008 
I V AR  0 0 8 
IVAR008 
I V A R 0 0 8 
IVAR009 
I V A R 0 0 9 
I V AR  0 0 9 
I V A R 0 09 
I V AR  0 09- 
I V AR  0 0 9' 
IVAR009 
I V AR  0 0 9 
I V AR  0 09- 
I V AR  0 0 9’ 
I VAR 0 1 0 
IVAR010 
IVAR01  0. 
IVARO  1 0. 
I V AR  0 1 0 ' 
I V A R 0 1 0 ' 
IVARO  1 Oi 
IVARO  10 
IVARO  1 O' 
IVARO  1 0 
IVAR01  1 
IVARO  1 1 
IVAROl  1 
IVAR01  1 
IVAROl  1 
IVAROl  1 
IVAROl  1 
IVAR011 
IVAROl  1 
IVAROl  1 
IVAR012 
IVARO  12 
IVAR012 
IVAR012 
IVAROl? 
IVAR012 
IVAR012 
IVAROl? 
IVAR012 
I V A R 0 1 2 
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SUBROUTINE  JACOBI  JACOOOnl 

COMMON  /STfllAd/  E (Ti) «E (6) »X (6) tOL.OM.DN.DX .QY.DZ. I X . I Y, 12.  JAC00002 

PO  <6. ? ) .PTR.tPO.tRB (6)  .KMl  ,hnO«»12.SPD  (6.6.1).  JACOO 003 

xEL  ( 1 A)  • XEB  ( 7 ) . xFC  (28)  .XFN  (7)  , XFS  (35)  . XGN  ( 7)  • JACOnno*. 

XlT (21)  • xwCi  (21  1 .YmG (21 ) « YEL  <2  1)  .YFKIEII  .BLC6.  J A CO  0 0 05 

OABp.uEPO ( 1 1 ) . f PUS. EPUx (111  .MASS.«LCG. *CON (63  I , JACOO 006 

X JE  T ( 1»>  .xmin.ayEEP  .CNRCO.GuESS.nPASS.pOPhI  16.7)  . JACO0007 
ST AcG.TZERO.OTBRSQ.MxRASS. *L I«IT.XRJT(1<.0> .YWjT(7)JAC0000o 
.XLJT (6*1 .YLJT (7)  JAC00009 

COMMON  /MANAPO/  I * V , nrAG.  TDEL  T .nfcuSTE  • H6USTF  . m&uST»  » VGUSTE  • VGtlST*  • JACOOO  1 0 


1 yGUSTF . GF BO.GLAT .GVtPT .VXH.VZM.AkO.VYB.ARDtAYQ. 

2 COLSTK.CYSTK 1 .CYSTK2.PE0ALfAYE.APE.ABP 

3 .TLSTK<2).TMLSTK<F),AT.dT.CT.ArH,dTH.CTH 
Common  /TOPLOT/  am  I 3) , al (3) .Ex  I T . ICOm (ZO ) , IPSN. 

1 NPABT.NVAPA.NVAHb.NVAPC.NSCALE 

COMMON  /XVAPTBZ  KVAO(6),P01 
DIMENSION  v AP ( n ) .Pnl (6 . 1 2 ) 

EQUIVALENCE  (VAP  ( 1 ) • COLSTK ) 

00  20  L=l.KMl 

IF(L.GT.l)  VAR  (K  VAR  fL-l ) )=VA»(KVAP(L-1 ) ) -OEPDIKVAR (L-l ) ) 

IF  (KVAP(l-I)  .E1).  B.AnO.IAT  .NE.O.. OR. HT  .NE.O..OR.CT  .NE.O.)) 
l V AP ( 9)sAT  »(BT  »CT  <*V API  S))«VAH(  d ) 

IF(KVAR(l-1). Eol. 10. AND. (ATH.NE.O..  OR. 8TH,  NE.O..  OR. CTh.  NE.O.)) 
l VAR(ll)iATH.IbTM.CTM»VAB(10))«VAR(10) 

VAR(KVAR(L))=VAB(KVAS(L))*OEPO(KVAR(L)) 

IF(KVAR(  l I.EQ.  6. AND. (AT  .NE.0..OR.BT  .NE.O..OR.CT  .NE.0.1) 

1 VARl  9)=AT  * < H T «CT  ° V AR ( S))«VAR(  o) 

IF(KvAS(  l ) .EQ. 1 0 . AND. ( ATh.NE .0 . .0R.3TH.NE .0. .OR.CTh.nE .0 . ) ) 

1 VAR ( 1 1 ) eATH* (8TH.CTH#VAR ( 101 ) ® V AR ( 10) 

CALL  ajacob 

IF (EXIT .NF.O. ) RETURN 

DO  10  K=1 ,«mi 

10  POIF.L  ) = (E  («  ) .PD  ( v ,«Ml  .1  ) ) /EPO 
20  CONTINUE 

VAP(KVAR(«-Ml))=VAH(<VAR(KMI))-DEPO(KVAR(KMl)) 

if (KVAR (KMJ ) ,EQ.  3. AND. (AT  • NE . V . • OR . BT  .NE.0..OR.CT  .NE.0.1) 

1 V AB(  9) =AT  ♦ ( BT  »CT  • V AR ( b ) ) ® V A R ( 8) 


0 . .0R.CTH.NE . 0.  ) ) 
VAR (10) 


IE(KVAR(KMi) .EQ.10.anD. (ATh.nE.O. .OR.BTH.NE 
1 VAR ( 1 1 ) =ATM. (BTH.CThovAH ( 10 ) ) 

RETURN 

Entry  bjacob 

DO  *0  L=1  . 1 1 

IF(L.GT.l)  VAR(l-1)=VAR(L-1)-DEPD(L-1) 

I F ( (L-l). EU.  6. AND. (AT  .NE.0..OP.BT  .NE.0..OP.CT  . NE . 0 . ) ) 

1 V A R ( 9 I = A T .(BT  »CT  *V  AR ( b)l«VAR(  8) 

I Ft  (L-l 1 .EQ. 10. AND. (ATH.NE.O. .OR.8TH.NE .0. .OR.CTH.NE.O. ) 1 
1 VAR(11)sATH.(BTh.CTm»VAR(10)I»VA«(10) 

vab(l>=vap(L)*depD(l) 

I E ( ( L I.EQ.  8. and. (AT  .NE.0..OP.8T  .NE.0..OR.CT  .NE.O 

1 V AR ( 9 I = A T ♦ ( HT  *CT  * V AB ( 8I)«VAB(  8) 

IF ( ( L 1 .EQ. 10. AND. (ATH.NE.O. .OR. 8TH.NE.0.. OR. CTH. NE.O 

1 VAR(11I*ATH.(8Th.CTh»VA«(10))»VAB(10) 

call  AjaCDB 
if (exit. ne.o.)  return 

DO  30  K-l.KMl 


) 1 


) ) 


jacoooi i 

JACOO  0 1 2 
JACO  0 0 1 3 
JACOOOIA 
JACOOOIS 
JACOOOlfe 
JACOOOI 7 
JACOOOIS 
JACOOO 1 9 
JAC00020 
JACOO  021 
JACOOO 22 
JAC00023 
JACOOU?** 
JAC0002S 
JAC00026 
JAC0002? 
JACOO  0 28 
JACOO  029 
JAC00030 
JACOOO  3 1 
JAC00032 
JAC00033 
JAC0003A 
JAC0003S 
JACOOO  36 
JAC00037 
JAC00038 
JAC00039 
JACOOOAO 
JACOO  0*.  1 
JACOO  0*2 
JACOOOA3 
JACOO  0*>. 
JACOOO*S 
JACOOOA6 
JAC00047 
JACOOOAb 
JACOO  04  9 
JACOOOSO 
JACOO  05 1 
JACOOOS2 
JACOOOS3 
JACOOOS- 
JACOOC55 
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30  Pal  (KtL)  z (F  (K)  *PD1  (K«  12)  ) /£PD  jACOOObb 

40  CONTINUE  JACOO  OS  7 

VA£)iin=oAO(in  -depd  (in  jacgco5o 

PETUPN  JACOO  0 59 

E NO  JACOOObO 


10 


1 

1 

2 

3 


SU3w0uT[nc  JETINT 

Common  /STOIAH/  CT£«  ( 414)  . XCON  (63  ) ,ETEm  (30a  ) . XPAM.  Z»am,Ba“m 
COMMON  /MALABO/  I TEm, V • VTEM ( 1 1 ) X KX1 • VZ3 1 APO • V Vi 
COMMON  /(.JETS/  NJtTL < ATE “ ( 18 1 , aP^jET (61 xPTEMP (68) t TL JET (61 . 
OTE“  (6)  . Th|_JET  (6) 

COMMON  /F0DCE7  XT(9) .XIN.XT1 (2) .XADD.YT(6) xYlN.YTl (2) .YADDx 
ZT (9) x Z INxZTl xZADOxPMT (91 xPMlN tfiNTl (21  .pmaOD. 
PMT ( 9) .PMIN.P“T1 (2) xPMAJOx  Y«T (9) .TMIN.YMT1 (2) 
YMAOO 

COMMON  /MANAL/  Q.ap 
TTOT  = 0 • 

THTOT=0. 

DP X * 0 • 

OP  Y a 0 . 

DPZ«0 . 

DO  10  J 1 = 1 *N JE  TL 
TT0T=TT0T*TLJET I jl ) 

ThTOT=ThTOT*THLJ£T  (J1J-AP6JET  ( J 1 ) 
THAVE=1.6708»SIN(THTOT/NJETL) 

VKrV*.5926 


VKX=VX6« .5925 
VlCY=VYH«.59?S 

DELL=7T0T* (XCONI50) ♦ ( XCON (51 ) •VNX*XC0N(62)«VKX»«2* 
1 XCON (63) VK  x ** °3 ) *THA VE / ( 1 .6708) ) 

DELD=TTOT»(XC0N(6») ♦ xCON (55) •VKXI»VKX 
OEl_PM  = TTOT»(XCON(bO).XCON(6l)»VIXY)»VKY 
DELM=TTOTo / XCON (6b) .|XC0N(57)«vkx»XC0N(56)«VKX*»2. 
1 XCON (69)»YKX»»3)»THAVE/(1. 5703)) 

CALL  VP20  (-OELD.-UFlLxAP-xAOD  xZAOD  .1) 
IFfTTOT.LT. 10O0.)  GOTO  20 

DPXzPAMMOyxfl 

OPY=PAmm»VvP 
OBZ  = PAmm<H/7B 

20  YA0O=O. 

PMADO  = Of  L“M 

PMAOO=-OELm 

YMADO=0. 

X4NZ-OPX 
YfN*-OPY 
7 iNt-UPZ 

PMlNs-DBY«7BAM 

Pmin=OPx«7Bam»OB7«xoam 

YMINs-OPY»»PAM 

PETUPN 

ENO 


JET  I 000  1 
JET  I 0002 
JETIOOO j 
JETIOO 
JET  1 0 0 05 
JET  IOOOo 
JETI10O7 
JE  T I 0005 
j£T I 0 0 09 
JETI0010 
JET  1001  1 
JE  T I 0 0 1 2 
JET  10013 
JETI0O1- 
JET  I 0 0 1 5 
jETIOOlb 
JET  I 00 17 
JET  I 00! 6 
j£  T I 0 0 1 9 
JET  10020 
JE T I 00? 1 
jETI0r?2 
JETI0023 
JE  T I 0 0 2* 
JE  T I 0 025 
JE  T I 0026 
JET  10027 
JET  I 0025 
JET I 0029 
JET  10030 
JETI0031 
JE  T I 0 032 
JE  T 1 0033 
JET  10034 
JET  10035 
JETI0036 
JE  T I 0 0 3 7 
JETIOOXm 
JET  1 00  39 
JET  I 0040 
JE  T 1 004 1 
JET  1004? 
JET  10043 
JET  10044 
JETI0045 
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SUMPQGTINF  LA'XOOE  I V . JaG.  ZF  ■ ,SM  ING)  LAmOOOOI 

COMMON  /ST  d 1 A-j/  F ( 7a) .F (b) .X (h) .OL.OM.ON.nx.Or.OZ. [x. tr. IZ.  LAM000OC 

1 PO  7 ft . 7 1 « OTP . £P0 * E s?W ( b ) . K M i . WHO . R 1 2 . SP 0 1 6 . 6 . 1 J . LAMO0OO3 

2 XEL ( 1 A)  .X£» (7)  . XF C ( 2ft)  . XFN ( 7)  , XFS (35)  ,XGN I 7)  . LAMOOOn- 

3 X I T (21 1 . x*0  (21 ) . Two  ( 21  I ,r£L  l2l ) « yFn  (21 ) iftLCG.  LAmOOOOs 

* XDAMp ,OEP0 ( 1 1 ) .FPuS .t POX ( U ) .MASS . «LCG. KCON (63)  . LAMOOOOft 

6 XJET ( 1* ) . XMIN,  aye FP.CNPCO.f’i it  SS.NP ASS. PDPM I (6,7)  . LAM00007 

b STACi,.T7£PO.DT9ftSQ.MXPASS.XLI“IT.xwjTllA0).VPjTl7)LAMO001a 

7 . XL  JT  ( ft*  I . YL  JT  ( 7 ) LAmOOO(W 

COMMON  /700NIC/  UU  (ft)  . VV  (6)  . TA(J<22)  .DAMP  (22)  .NUMMTS.GAlNa.  LAmOOOIO 

1 INOf x.STGAJNfb) .TSTAP.C0ELT0.SL0TI3.9)  LAMOOOll 

COmmon  / m ^ »j a l / O.AlPA  LAM00012 

DIMENSION  pl MODE  ( b I .FLMOOE  (6)  . TMLFOrl  (b)  .1  ZERON  (61  ,SM  ( 3.9)  . OMOnE  (6)  L ami. DO  1 j 
1 .FANf,2(6)  ,POOOT(2.3>  • ZLNTl (6) .FANG1 (b) .ZLNT2 (61  lAmoiXUA 

PEAL  I*.  IZ.mASS  L AMOO  0 1 5 

Complex  RO00T  LAMOOOlb 

MP I IF  ( 6.160)  L A“00 0 1 7 

Sl*SIN(ALFA)  L Amo  0 0 1 d 

C1*C0S(ALFA)  LAM0001P 

S2=S 1 • *2  LAmOO  020 

C2  = C 1 **2  LAMOO  0 2 1 

S1C1=S1»C1  LAM00022 

00  10  J= 1 , 3 LAM00023 

00  10  1 = 1,0  LAmOO  02  a 

10  SLOT ( J. I ) =0 . 0 LAmOO  0 r 6 

00  20  1=1. a LA MO 00 2b 

PLMO0E(I)=.0  . LAM00027 

FLMO0E(I)=.0  LAM00026 

tmlf ob  t i ) = . o LAMOooa-i 

1 ZERON ( I ) =0  LAM00030 

20  CONTINUE  LAM00031 

SLOT ( 1 .2) ="4SS  LAM00032 

SLOT ( 1 , 3) x-SPO ( a , a, i ) LAMOO033 

SL0T(1.S)=-(SP0(S,a.1)oC1*SPD(6«a,1)aS1>/v  LAM0003- 

SLOT  (1«6)=-7F«i/V  LAM00036 

SL0T(l.S)=MASS-ISP0(b.A,l)«Cl-SP0(5.A,l)»Sll/V  LAM00036 

SLOT  (2.3)  =-  (SP(3(A  .5. 1 ) *C1  *SPO  (A  .6, 1 ) »Sl  1 LAM00037 

SL0T(2.a)=(Ix*C2aI2°S2*2.*xFS(11)*S1C1)/V  LAMO0036 

Slot (2.6) (SPL (6.6. ll»C2.<SP0(b,5,ll-»SPQ(6.6.1))*SlCl  LAMOO  039 

1 »SPD (b.fc . 1 ) »S2) /V  LAMOOOaO 

SLOT (2.6) =- ( xFS ( 1 1 I »C2-.6» ( I X-IZ) *62) /V  LAmoOOaI 

SLOT (2.9) =- (SJ0 (b»6, 1 )<>C2.(SPD<b.b.l)-$P0(S.5,l))ASiCl  LAMOOOa2 

1 -SPO (6.6. I I »S2) /V  LAMO00AJ 

SLOT ( 3. 3) =- (SPO (A ,b, 1 ) *C1-SPD (A.6. 1 ) »S1 1 LAMOOOaa 

SLOT (3, A) xSLOT (2.2)  LAMOOOAS 

SLOT(3.6)r-(SPO(6.6.1)«C2.(SPO(6,6.1)-SPO(6.6rl))»SlCI  LAMOO Oa6 

1 -SPD (6.6. 1 ) »S2| /v  LAMOOO-7 

SLOT (3.b)=(IX»S2»lZ«C2-2.«XFS(lll»SlCl)/V  LAMOO 0A« 

SLOT  ( 3 .9)  x-  (SP()  (6.b,l)«C2-(SP0(b.6.1).SP0(6.6,l))«SlCl  LAM000A9 

1 «SP(J  (S.S.l  ) »S2) /V  LAM00060 

00  30  1=1.3  LAMOOOSl 

X 1 = 1 A . 6936  LAMO0062 

1F(I.(,T.1)  X 1 =a  . aAP22  LAM00063 

00  30  J= 1 . 9 LAMO006A 

30  S« ( I , J) =SLOT ( I . J) »X 1 LAM00056 


NA0C-76J13-30 


40 


50 

60 


70 

60 


50 


MRtTE  (6.160) 

4RtTE(b,17n)((SM(I,j).j=1.9).l=1.3) 

40 1 TE (b . 130 ) 

CALL  SOT 
I NOE  X =b 

CALL  ELEC  (C-AlNRI 
00  60  1 = 1 .MJmPTs 

IF  (UU  ( l ) .E0.  .0.  ANuTvv  < l > .EQ.  . 0)  OO  TO 
IF (VV ( I I .FO. .01  GO  TO  *0 
PLMOOt ( I > =6.2o32/AHS(VV ( I>  > 

IF (UU ( I ) .EO. 0 . I GO  TO  50 

FLMODE  ( I ) =C0»T  (UU  ( I ) ““2-.VV  ( I ) I 

DMOOF ( I ) =-UU ( 1 1 /FLMOOE ( I ) 

THLF06(I)=.69315/A8S(UUII) ) 

GO  TO  60 
IZERONI I)=l 
CONTINUE 

00  110  I=1.NUMWTS 
IF(IZERON(I) .NE.O)  R 0 TO  110 
PELP*<JU  ( I ) »SLUT  ( 1 .2)  .SLOT  (1*31 
ZpRT  *VV ( I ) "SLOT (1*2) 

POOOT 11,1) =C«PLX (RELP.2PPT) 

POOOT (i.2)=CMPLX(SLOT(1.9>..0) 

pelp*  -(  no ( I i “slot ( i .6)  *sloti1.6>  i 

ZPRT = -VV  ( I ) “SLOT  ( 1 ,6) 

POOOT ( 1 .3) =CMPL7 (RELp.ZPPT) 

POOOT  (2*1)=  CMP  LX  (SLOT  (2.3)  ..0) 

PELP  - UU(I)“SL0T(2.a>  *SLOT (2.9) 

ZP PT  * VV ( I I “SLOT (2,6) 

POOOT (2.2) =Cmplx (PElp.ZPPT) 

PELP  =-<(UU(tl**Z  -VV ( I) *“2) “SLOT (2,4)  »UU ( I ) “SLOT ( 2 . 5 ) ) 
ZPRT  = -(  2.“UU ( I ) “VV ( I ) “SLOT (2.4)  » V V ( I ) “SLOT ( 2 . 5 ) ) 

POOOT (2.3) =C“PLX (RElP.ZPPT) 

CALL  COmsol  (POOOT. ppRT1.ZPT1.pPPT2.ZPT2) 

ZLNT 1(1) =«OPT ( RPRT IopppT 1 «ZPT 1“ZPT1 ) 

IF (PPPT 1 .FO. . 0)  GO  TO  70 
FANG1(I)=57.3“ATAN2(ZPT1.PPPT1) 

GO  TO  »0 
FANGl ( I ) = 90. 

ZLNT 2 ( I ) = 


SORT ( (PPPT 2“UU (I).ZPT2“VV(I))““2  ♦ ( ZPT2“UU ( I > -RP»T2“ 


1VV(I))““2)/(UU(I)““2»VV(I)““2) 


LAmOO  06b 
LAP00057 
LA“OOOS« 
L*“000->9 
LA“00060 
LAPOOObl 
LAMO0062 
LA«OOOb3 
LAmOOOai. 
LAM00065 
LAMOOObb 
LAHO006  7 
LAMOOObb 
L»M00069 
LAM00070 
L AMOO  0 71 
LAMO0072 
LA»00073 
LAMO007, 
LAMC0075 
LA«O007b 
LAM00077 
LAM00076 
LAM0007P 
LAMO0050 
LAmoCOAI 
L A-OO  062 
LAMO00i3 
LAmOOOa- 
L amO  0 0 35 
LAMOOOAb 
LA“O0  0«  7 
LA“0  OOR-) 
LAMOuOov 
LAMOOOPO 
LAMOOOPl 
LAmOO  0R2 
LAMO00P3 
L amoOOR- 
LAMC0055 
LAMOO  09b 


90 
1 00 
1 1 0 


120 


IF (RPRT2.F  0. .0 ) GO 

to 

90 

L A MO  00  9 7 

FANG2 ( I ) =57 . 3®AT  AN2 ( (ZPT2*UU ( I ) -RPRT2“VV ( I ) ) . (“PRT2“UU( I ) “ZPT? 

•VV (LAMOOORb 

11)  ) ) 

LAW 00095 

GO  TO  100 

LAMQO 1 00 

FANG2I I ) =90. 

LAM00101 

CONTINUE 

LAMOO 1 02 

CONTINUE 

L AMOO 1 0 3 

DO  120  I=1.NUNRTS 

LAM0010* 

IF ( VV ( l ) .LT . .0 ) GO 

TO 

120 

LAmOO 1 05 

IF(IZE«ON(I) .NE.O) 

00 

TO  120 

LAM001 06 

WBI TE (6. 140) UU ( I ) , 

Will  .PLMODE  ( I ) .FLMOOE  ( I ) . DMOOE  ( I ) . ThlFDB ( I ) 

LAMO0107 

CONTINUE 

LAMQO 1 OM 

1*1 

LAMOO 1 09 

CALL  MODE  (PD.V.I) 

LAMOO 110 
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PFTJPN 

130  F09“AT  ( 1bo.Sbx.20hCOnT90LS  FIxEU  R00TS/2SX  . AmPE  AL  . HX  . SB  ! “ AG  . • 

1 «X^HPFBIOj.bX.BMNAT.EBEa..3X.7HPAMBINrnbX.iOHT»MALE-OHL) 

1*0  F OPma  T ( <;  1 x . f?r,  1J,S) 

1 50  F09“AT ( 1 m 1 , FO* • 1 PBLATEBAL  MOPE) 

160  FORMAT  ( l>-iO.4BX.M0HCnEFFtCIENTS  OE  CHABAC  TE  - I S T I C EQUATIONS/ 

1 1 1 X • 1 7«BF  r A-S®»2  BE  TA-S  »6X  > mh-iE  TA  . NX  . 1 7hPH  I-S<>*2  PHI-Si 

2 9x.3mphI,bx,6HB_<;o«2,6X.Jhr-S.11x»1mbj 
1 70  FORMAT ( lhO. 10X.9G12.51 

ENO 


LAmOO  1 1 l 
LAk-OOl  12 
LA«O0 113 
LAMOO  1 1*. 
LAMOO  1 l-j 
UA-uOl  16 
LAmOO l 1 7 
LAMOO  1 1 B 
L A“00 119 
LAMOO 120 


. ZF L J * T A 1 1 l 1 , OML J. 
•PGYPO.  7 a ( n i , r“Ui 


Common  /L  Jr  TS/ 


SU9P0UTINF  LIFJFT 

Common  /FOPCE/  Tl ( s ) . XFL J. T2 (9) . yFL J. T 3 ( 12) 

T5  < 2) .RGYOO. Tb  <91 .P*L J. T 7 (2) 

T9 (2) .yGyPO 

COMMON  /manapO/  TlO(lb)  . APO . T1 I . APO.AYOt  T12 (7) , TLSTK (2) . TmlST K(2) 
T 1 3 ( 7 ) .FAIL (6) 

N j£  TL  « XAJFTL  (6  I • YA  JETLT  6)  . ZAJF.TL  (6)  .APSJTL  (6)  . 
ARBjTL(b) .CONLJ'2.5) .NC0NLI6).XlT(2).XlTh(2) 
t AY8JTL (6) . ATT (6) «ANG (6) .PSIANG (6) , THE  A NO (6) 

. ANGA  (6)  . ANC.0  (6)  .TLJET(b)  . AnGC  <b)  • THL  JET  (b) 

. TL  <? .6  1 . NL INK  xOPBjTL  < b) 

DIMENSION  ANGl (6) 

YL(X.«.P.C.O.E.F)r(0/A)»AMlNl(A“AXl(X.O.).A).(E-D)/(H-A)* 

1 AM  INI ( AMAX 1 ( IX- A ) .0. ) I (B-A) ) ♦ (F-E ) / (C-Ht • AM INI (AmAXI ( ( X-R) 

2 .0.) , (C-0) 1 
XFlo=0. 

YFl j=o. 
zflj*o. 
pmlj=o. 

P“L J*0 . 

PGYPO=0 • 

PGYBO*0 . 

ygypo=o . 

DO  10  J=  1 • b 
ANGl (J) =0. 

DPP JTL l J) =0  . 

TLJET ( J) =0. 

10  THL  JE  T ( J ) sO  « 

DO  *0  J=  1 , N JE 7L 
Jl*NC0NL(j) 

IFIJl.LT.l.OP.Jl.GT.?)  C-0  TO  *0 
XLT(j1)=TlSTk(J1) "CONLJ ( J1 .11/100, 

XLTM ( Jl ) sTPLSTK ( jl ) «CONLJ ( Jl *2) /I  00  . 

TL  JF.T  ( J ) =CONL  J < Jl  .J)»XLT(Jl)»FAlL(J) 

IF (NLINK .MF.O)  GOTO  20 

OPRJTL ( J) =CONL J < jl .4 1 »XLT  < Jl  1 *CONLJ ( Jl ,5)*XLTh(Jl) 

GOTO  30 

20  OP0JTL  t J) sYL(XLTHtJl).TL(Jl.l),TL(J1.3),TL(J1.5>. 

I TL ( Jl .2)  .TL ( Jl .* I • TL (Jl .61  ) 


LIFJ0001 
LIFJ0002 
L IFJ0003 
L IF J000» 
«L IF J0005 
LIFJOOOb 
LIFjOOOT 
LIFJOOOB 
LIFJ0009 
L I F JO  0 1 0 
LIFJ0011 
LIFJ0012 
LIF J0013 
LlF J001» 
LIFJ001S 
LIF J0016 
LIFJ0017 
LIF JC01B 
LIFjOOIy 
LIF J0020 
LIFJ0021 
LIF J0022 
LIF J0023 
L T F JC  0 2m 
LIFJ002S 
LIFjOO?^ 
LIF J0027 
L IF J002B 
L I F JO  029 
LIFJ0030 
LIF  J0031 
L IF  JO  0 32 
LIFJ0033 
L IF  JO  0 3** 
LIFJ003S 
L IF J0036 
LIFJ0O37 
LIFJ003S 
L IF J0039 
LIFJOOAO 


A-AO 


NAOC-76313-30 


30  DPHJTL(J)=DPHJTl<J)/ST. 295 7795 
THLJET ( Jt =OPH JTl <J)«aPHJTL<J> 

ANGl  ( J)  = ANG  I Jl  » <ANGA  < J)  »ANGft  < J)  •ILJET  (J)  ♦ ANGC  <J)»TLJET<J)<>«Z) 

ANSI  (J)=ANGl<J)<>FAIL<J) 

*0  CONTINUE 

00  70  J=1 , N Jf  TL 
Tvl i-ThljET ( j) 

Tv2=-arhjtl ( j) 

IF (ATT(J) .FG.O. ) GO  TO  50 
Tv1«TmlJET ( J) 

Tv2=AYH  JTL  ( J) 

CALL  VP  30  < 0.  .0  . ,-1'LjET  (J)  . Tv2.  Tv  l . 0 . .XF.  YF  ,ZF  , 1 ) 

GO  TO  60 
50  CONTINUE 

CALL  vh30  < 0.  .0  . ,-TljET ( J) .0. ,TVi , TV2.XF. YF.ZF.-l ) 

60  CONTINUE 

CALL  XPRO  l X AJETL < J) . VAJETL < J) .ZAJETL < J) .XF , YF , ZF ,RM.PM, YM) 

XFLJ=XFLJ-XF 

TFLU-YFLJ.yF 

ZFLJ=ZFLJ.7F 

RML J*PML J»P“ 

RML J=P*L J*PM 
YHLJ=Y»LJ«y“ 

CALL  V»3D  (ANGl(J)»O..O..PSIANG(J)  .THE ANG  ( J)  .0  . . X ANG  . Y ANG  . Z ANr,  , 1 ) 
CALL  XPRO  (APO.APO.AyO.XANG.TANG.ZAIVG.HG.PG.TG) 

RGYRO=RGYRO-RG 
Pr,YPO=PGYRO-PG 
YGYPO=YGYPO-YG 
70  CONTINUE 
RETURN 
END 


LIE J00*l 
L IF  U0042 
L I F JOO*  3 
LIF J004- 
LIFjOOnS 
LIFjOOnS 
LIF J0047 
L I F JO  f).') 
LIFJOO*9 
LIF J0050 
LlFjOOsl 
L I F JO  0 52 
LIF J0053 
L I F uO  054 
L I F jO  05*. 
LIF J00S6 
LIF J0057 
LIFJOOSS 
LIFJ0059 
LIFJ0060 
LIFJ0061 
LIFJ0062 
L IF J0063 
LIFJ0064 
L I F JO  065 
LIF J0066 
LIF J0067 
LIFJ006S 
L I F JO  C 69 
LIF J0070 
LIFJ0071 


SUBROUTINE  LmQOE  (V.OWG.XFw.ZFp.CWING.XAELE)  LN000001 

COMMON  /5TPIAU/  E <74  I ,F (6) .X (6) .OL.DM.ON.OX .DY.DZ. IX . IY, iz.  LMODOOC2 

P0I6.7)  .OTR.EPO.EPR (6) »6«t .wH0.R12.SP0  <6.6,11  , L“CD00  0 3 

XEL ( 1 4 ) . XER ( 7 1 , XF  C ( 26 ) .xFn<7)  .XFS<36)  . XGN  <7),  L«0000n4 

XIT<21),XWG(21|.YJG<21).YEL(21) .YFn (21 1 .BLCG.  lmODOOOr 

XOAMP.OEPO ( 1 1 ) . EPOS.EROX  < 11 ) . «ASS • 4LCG . XCON  < 63)  . L *00 0 0 06 

XJET  <1*1  .XMIN.AYEFP.CNPCO.GUESS.NPASS.PDPHI  <6.71.  LYOfiOOi? 


STACG.T7ER0.CTRHS0.HXPASS.XLIHIT.XRjT (l40).YHjTl7)L“0Cr00o 


.XLJT (64) ,YLJT <71  LHGD0009 

COMMON  /STANRO/  j. » ,L INK .OELE , VSNO.YFIN <21 , ZFEL (2) .CONOl .SWING.  LMOPOOIO 
1 PILGh2.P»GEL1  LM000021 

COMMON  /Tronic/  UUISl .VV <61  .TAU<221  .DAMP<22i .NUMRTS .gains,  L*OO0 0 1 2 

1 INDEX. STGAINI6) .TSTAR.COElTD. SLOT <3.91  L“ODOO!3 

COMMON  /mamAL/  O.ALFA  LMODOOl- 

DIMENSION  PLHOOE  <61 .FLMODE 16)  , THLFOS  <61 . 1 ZERON (6) ,SM  < 3,9)  .OMOOF (6) LMODOO  15 
1 .F Ang2 (6) .ROOOT (2,3) . ZLNT l < 6 ) . F ANG 1 < fe ) . ZLNT2 < 6 ) LM0DP016 

RFAL  Iy.masS  LM000017 

complex  RnnoT  lmooooi6 

MRITE  < 6,1501  LM000019 


NADC-?e>  313-30 


S1»SIN(ALFa> 

Cl=COS (ALFA) 

S2  = S 1 “«2 
C2  = C 1 •«£- 
S1C1=SI»C1 
00  10  1=1,* 

PL«0D£ ( I ) = . 0 
Fl«00£(I)=,0 
TmlFOp  ( I ) = .0 
I7£PON (11=0 
10  CONTINUE 

00  20  1=1,3 
00  20  J=l,9 
SLOT ( I , J ) = . 0 
20  CONTINUE 

SLO  T (1,2)  = PASS 

SLOT ( 1 .3) =- (SPQ( 1 « 1 . 1 > *C2* (SPO  <2»  1 .1 ) *SPD (1,2,1)>»S1C1 
1 ‘SPO (2, 2. 1 ) »S2) 

SLOT ( 1 ,6) =-  I$PD (2.1 , 1 ) «C2- (SPD( 1 • 1 « 1) -SPO (2,2. 1 ) ) «S1C1 
1 -SPD ( 1 .2. 1 ) »S2) 

SL0T(1.B)=-(SPU(3.1,1) °C 1 ♦ SPO (3,2, 1 ) »Sl ) /V 
SLOT ( 1 .9) =ZFw/V 

SLOT (2.3) =- (SPD ( l .2, 1 > »C2* (SPD (2.2,1 )-SP0< 1. 1 . 1 ) ) *S1C1 
1 -SPO (2« 1 » 1 ) »S2) 

CZ»DE*TEL ( 1 7 ) •UELE#XA£Le*Y*G ( 17) *PWGELl«YWG ( 18) *YEL  « 18) »DTRRSO/ 
1 ( (3.»YwG( Id) )* (3.«YEL( 18) ) *<1.-(V»VSN0)»*2» ) 

SLOT (2.S) SMASS-C7AOF 

SLOT (^.fe)=- (SPO (2*2,1 )°C2-(SP0li, 2. 1|*SP0(2,1,1))°S1C1 
1 ♦SPOU,  l,  1)  »S2l 

SLOT (2,6)  = - (PAaS* (SPO (3,2, 1 ) *01-500(3,1 . 1 ) »S1 ) /V) 

SLOT (2.9) =-XF«/v 

SLOT (3.3) =- (SPO (1.3.1) »Cl »SPO (2,3. 1 ) *S1 ) 

SLOT (3.S) =CZAOE«xAElF 

SLOT (3,fc) =- (SPO (2. 3,1 ) "Cl-SPO ( 1 .3. 1) »S1 ) 

SLOT ( 3. 7 ) = J Y/V 
SLOT(3.e)=-SPO(3.3.1)/V 

00  30  1=1,3 
XI =1*.5939 

IF(I.GT.?|  xl=4. 44822 
DO  30  U = 1 ,9 

30  SM  < I . J) =SLOT ( I « J > *X 1 
WRITE  (6*160) 

WRITE (6.170) ( (SM(I.J) , J= 1 , 9 ) ,1=1,3) 

WRITE (6,130) 

CALL  SWT 

1 NOE  X = 6 

CALL  ELEC  (OAINR) 

DO  60  I=1.NUWWTS 

IF tuu ( 1 ) .FO. .0. ANO.VV ( t ) .EO. .0)  GO  TO  SO 
IF  ( vv  ( I ) .Ffl  , . 0 ) 00  TO  40 
PL“OOE 1 1 ) =6.2b32/ABS IVV l I ) ) 

*0  ILF  (III)  ( I ) .FO.0  . ) GO  TO  SO 

F LM00t  I I ) = 9 OPT  (i;u  (I)»*2«VV(I)»42) 

OPOOE  ( I I =-UU ( I I / F L w 0 0 E ( I ) 

ThlFDO ( I ) = .69  3 IS/Abs (UU ( 1 1 I 


LP000020 
LP000021 
LMOD0022 
LM000023 
LM000024 
L“OQO  02S 
L“OD0026 
L POD 002 7 
LMOD002s 
LmOD002y 
LP000030 
L«OOU031 
L«OD0032 
LP000033 
LP000034 
LMOD003S 
LPODOO  36 
L"0000  37 
LP00003a 
LP000039 
LPOD0040 
LPOOO  04 1 
LP000042 
LP000043 
LMODO  04» 
LP00004S 
LP000046 
L“ODOO*7 
L PODO  0 ao 
LP000049 
LPCOOOSO 
LPOOOOS1 
L“OOOOs2 
LP000053 
LPOOOOS4 
LPOOOOSS 
L“OOOOS6 
LPODOOS7 

LMOOOr)5n 

LPOOO0S9 
LP000060 
LPOD0061 
LP000062 
LM000063 
LP000064 
LPODOOoS 
LPOD0066 
LM00  0 0 6 7 
LPOOO  068 
LPOD0069 
LP000070 
LPOOO  0 7 1 
LM000  0 7 2 
LP00007 J 
L“OD0074 


NAOC-76.H3-30 


GO  TO  60 
SO  I ZFWON ( I ) = 1 
60  CONTINUF 

DO  110  I = l,NljMRTS 

IF  ( I 7E»0^  ( I ) .NE . 0 ) go  TO  110 

poooTciti)  =cmPl*  (Slot  (cf*3)  t .0) 

PELP*uU(I)«SLOT  (2*5)  ♦SLOT(^.b) 

Z PRT  = W ( I ) •SLOT <2*b) 

POOOT(l,2)=  C"*pLX  (PFlP*7PRT) 

P£Lp  = SLOT  (?*7)®(VV(I)*uU(I)  ) * ( V V ( I ) -UU  ( I ) ) -SLOT  ( 2 • b ) *U J ( I ) 

1 -SLOT(2t*) 

ZPP T = - (2. •MU( I ) »VV ( n °SLOT ( 2. 7) ♦ W ( I) *SL0T ( 2*b)  ) 

POOOT ( 1 • 3 ) =C^Plx { REl p * ZPR T ) 

POOOT (2*1) :CMM LX (SLOT ( 3#  3)  » . 0 ) 
ffF.LP-SLOT  (3*5)  *UU  U ) ♦SLOT (3,6) 

ZpRT  = W ( I ) ®SLOT  ( 3tS) 

POOOT (2*2) =Cmrlx (PElp*ZPPT) 

fieLPz-lSLnr  (3*  7)  * ( null)  °UU<I)  - V V ( I ) *v V ( I ) ) ♦SLOT  ( 3 * 8 ) •UU  (1 ) ) 
ZPpT  = - (SLOT < 3* 7 ) *2.*  UU ( I ) *VV(I)  ♦ SLOT ( 3 , b ) * VV < I ) ) 

POOOT (2*3) =Cm^lx ( pELp • ZppT ) 

CALL  COmsol  (POOOT.op^M f ZPT1 .PpWT2*ZPT2) 

ZLNT 1(1) =S0»T ( PPHT1  **2  ♦ ZpT 1 ®*2)  • 

IF(RPRT1  ,EQ..O)GO  TO  70 
FANG  l (r)=flTAN2(ZpTl,PPPTi;/0  7P 
GO  TO  bO 

70  F ANG1  ( I ) = -90. 

60  ZLNT2 ( I ) = ^OPT (PPRT2«*2  ♦ZPT2**2) 

IF (PPKT2.F0. .0) GO  TO  90 
FANG2 ( I ) = AT AN2 ( 7PT2.PPRT2) /DTP 
GO  TO  100 

90  F AMG2 ( I ) =F  ANG 1 ( I ) *90 • 

100  CONTINUE 
liO  CONTINUF 

00  120  1 = 1 *NUMpT  S 

IF ( w ( I ) .LT  . ,0 ) GO  TD  1?0 

IF ( IZEPON ( I ) .ME.OJGO  TO  120 

te?XTE  <6,  UO)  UU  ( I ) tW  ( I ) * PLMODE  ( I ) *FLMODE  ( I ) tDMODE  ( I ) *TnlFOB  ( I ) 
120  CONTINUE 
1=2 

CALL  MODE  (PDtVtp 
RETURN 

130  FO»MAT ( Iho *SSX «20HCONTPOLS  FIXED  ROOT S/2SX • 4hRE AL * 8 X « 5H I M AG • • 

1 6X  t6HPFPI0D.SXtRHNAT,FREQ. * b A . 7HD AMP  I NG • S X * 1 ON T ® H AlF-DBL ) 

140  FORMAT (21 x *6G13. S) 

ISO  FORMAT ( 1H1 ,S7X ♦ 1 7MLQNGITUD INAL  MODE) 

160  FORMAT ( 1H0 *46X *40mCGEFF ICI^NTS  OF  CHARACTERISTIC  EQUATIONS/ 

1 1 3X  « 1 4HU-S*«»2  U-S«llX#  1hu#6X,21HAlPhA-S°#2  A^PHA-S* 

2 6X*2ShALPHA  TmETA-S*°2  T HE T A-S * 7 x * ShTmE T A ) 

170  FORMAT  ( 1H0  • 1 OX  *90,12.5) 

END 


LMOOO  07t> 
LMOD00  7 o 
LMOD0077 
LMODOO  7h 
LMOOO  0 7* 
LMODOOmj 

lmoduo^; 
LMODO  0 *«2 
LmODOOh J 

l-cdoo^* 

LMQD00H6 
LMOOO  OHb 
LMOOOOM7 
L^ODOOB^ 
LMGOOOB'* 
LMCD0090 
LMODO 091 
LMOO0Owc 
LMODO  093 
LMDD009- 
LMODOORb 
LM00009S 
LM000097 
L MODO  0 R 8 
LMOD0099 
LMODOl 00 
LMODO 1 0 1 
LMOD0 102 
LMODO 103 
LMODO 1 0* 
LMODOl 05 
LMODO 1 ne 
LMOOO 107 
LMODOl OB 
LMOOO 1 OR 
LMOOO 1 1 0 
LMODOl 1 i 
LMODOl 12 
LM0001  13 
LMODO  1 1* 
LMODOl 15 
LMOP01  16 
LMODO 1 1 7 
LM000 1 18 
LMODO 1 15 
LMODO 1 20 
LMODO 121 
LMODQ 1 22 
LM000 123 
LMODO 1 2* 


SUBROUTINE  MANIJ 


MAN U 0001 


NAOC-7&313-J0 


COMMON 

/FnoCF/ 

XF.T1 U2>  .YF  . 

T £ ( 9 ) * 7E • T 3 ( 11  ) . 

MANU0Q02 

1 

OL*  T4  ( ie  ) *Om  , 

Tb  l l?)  .ON 

MANUOOO J 

COMMON 

/ST9IMA/ 

AY • V M » A G W » 1X7 

. xXu. YYD. 7ZU. AlGF 

, APFP . A YFP . CG-L . 

manuOO  0** 

1 

T6(1?).DIST.T7(23)  .TIMf«TMAx*Tb( 120)  . A^C-EZ  . T9  (4 ) . 

MANuoon^ 

2 

OIX  17  »U  IV  IX  .0  r 71  Y . T1  0 (3)  * TSTAn  U4  ) » ZMAX2.ZMAX3, 

MANUOO Ob 

3 

Tl  1 (3)  . ZDFL  T 1 

• Z'JtLT^ 

MANU000  7 

Common 

/ST  AM AN/ 

X X . YV . AY  1 *H  I Y 

•AMbGfARBG.ASEP.AY9G 

.CGol .DP  H .Do ! 2 . 

MANUOO  Qd 

1 

B550  . Avt’PX  .DELT2 .0»I  XZ  »HO£lT  .hGuSI  .<TCTO.p'>aSS. 

MANUO  o 0* 

2 

TWOPI  . VGUST . I STUN , x AGUN. X A GUN  . 

Y GUST . Z AGUN • 0ELT2R  * 

MANUOO 1 0 

3 

po  imp  * poelt  i 

. WuEl  T 2 

«ANUOO l i 

COMMON 

/ M A N A L / 

T 12  1 LI  . ALCYP  . 

Tl  3<  il  J-.ALECWl  . AL 

GFPO 

MANUOO 1 2 

COmmcN 

/PO*-*  AN/ 

PI » Z 7 » A L T tT .APOO.APDD.AYOD.OTBB 

MANUOO 13 

COmmON 

/manabO/ 

r . V.n*AG. TOELT. 714 (9) « VXd. VZB» 

APO 

» V YB . APD . A YD • 

MANUOO 1 4 

1 

T 1 b i 4 ) .AyE*  ape  .ape 

MANUOO 1 b 

common 

/TOPlGT/ 

Tlb(A). EXIT. ICOM 120) , IPSN.T17IS) . 

NV  APS 

MANUOO  16 

common 

/fpdy/ 

Y ( A, ISO) 

MANUOO 1 7 

COMMON 

/STAnoo/ 

J."iL INK 

MANUOO 1 8 

COmmqn 

/Cr^  TP/ 

AO  I Sp ( 3 ) .ABATE (3)  .OElTA(a) , TbR(2) » 

RPC 7(3)  , XSYS  f?8) 

manuOO 1 * 

RFAl  L? 

•NP.IXZ 

MANUOOPO 

DIMENSION  4C20l) 

MANUOO? 1 

EQUIVALENCE  ( A ( 1 ! . r ( 1 , 1 ) ) 

MANUOO?? 

XQFLlM<*l.X2«*3)=AMAXl(XlfAMlNl(X2*X3>) 

MANUOO?  '4 

c 

MANUOO?-* 

c 

PAHT  3. 

SI*  DEGREE  OE 

freedom  maneuver 

SECTION 

MANUOO?S 

c 

MANU0O?6 

c 

SYMBOL  IDENTIFICATION 

MANU00?7 

c 

* 

MANUOO?o 

c 

yu*  n 

7XP 

VELOCITY 

X-COMPONENT 

000  Y REFERENCE 

MANHQO?W 

c 

r U • 2) 

V yB 

VELOCITY 

Y-COMPONfcNT 

BODY  REFERENCE 

manuOO  j3 

c 

YU*  3) 

v?p 

VEl  OCITY 

7-C0mP0nEnT 

BODY  REFERENCE 

manuo  1 3 ; 

c 

Y (1  * •*) 

A vO 

VELOCITY 

YA*-COmPOnEn7 

body  REFERENCE 

manuOO  3? 

c 

YU*  b) 

APD 

VELOCITY 

PI  TCh-COmPOmEnT 

BOOY  REFERENCE 

manu0033 

c 

YU.  6> 

AOQ 

VELOCITY 

POLL-COMPONENT 

BODY  REFERENCE 

MANUOO  .4- 

c 

Y U * 10) 

ayE 

FOLFP  angle 

YA^-COMPONENT 

FIXED  TO  BOO> 

m A N u 0 0 3 b 

c 

Ytl.ll) 

APE 

EULEP  angle 

PITCH-COMPONENT 

FIXED  TO  BOOY 

MANU003O 

c 

Yll.U) 

APE 

EulFP  angle 

ROLL-COMPONENT 

FIXED  TO  BOOy 

M A N u 0 a 3 7 

c 

Y U 1 1 b ) 

X X 

DISPLACEMENT 

^-COMPONENT 

FIXED  REFERENCE 

MANUOO  3d 

c 

Y ( i . 16) 

YV 

DISPLACEMENT 

Y-COMPONE  NT 

FIXED  REFERENCE 

MANUOO  )9 

c 

YI1.17) 

77 

DISPLACEMENT 

Z-COHPO'vF.vT 

FIXEO  RFFF  ur  NCE 

MA  NUO  0 4 0 

c 

Y U .76) 

V X BO 

ACCE  LF-PAT  ION 

X-COMPONENT 

hooy  reference 

MANUO 04 1 

c 

Y U .77) 

V Y BO 

ACCFLEPAT ION 

Y-COMPONENT 

BODY  REFERENCE 

MANUC  0**? 

c 

Y U . 7«) 

V7BO 

ACCFLE  P A T I ON 

^-component 

hOOY  REFERENCE 

manuoo-3 

c 

Y < 1 . 79) 

A y DD 

ACCFLEPAT ION 

YAw-COMPONENT 

BODY  reference 

MANUO  Oi*w 

c 

Yii.ei)) 

APOD 

ACCFLEPAT ION 

p I TCh-COMPONF  NT 

HOOY  REFERENCE 

MAN(.;0  04b 

c 

Y ( 1 * 6 1 ) 

AQDO 

ACCFLEPAT ION 

POLL-COMPONENT 

hooy  reference 

MANUO 046 

c 

Y ( 1 • M b ) 

AyFD 

eul . ang.vel. 

Y A4-CQMP0NENT 

fixed  TO  body 

MANUO  0«*  7 

c 

Y ( 1 , P6  I 

apEO 

EUL . ANG. VFL  . 

Pi  TCh-COmPON^nT 

FIXED  TO  MOny 

m A Nl  1 0 0 •*  o 

c 

Y U .67  ) 

apEO 

Eul • ANG.VEL. 

POLL-COMPONf NT 

FIXEO  TO  BOny 

manuOO*.  V 

c 

Y ( 1 .90) 

xxO 

VELOCITY 

X-COMPONENT 

FIXED  REFERENCE 

MANUO  OSd 

c 

YU  .91) 

y vO 

VELOCITY 

y-component 

FIXED  REFEHFNCE 

MAN  00b l 

c 

Y ( 1 .9?) 

770 

VELOCITY 

Z-COMPOfiE  n T 

FIXED  REFERENCE 

MANUOOS? 

c 

MANU0053 

IF (NVAMS.Nf .0 ) 

GO  TO  20 

MANUOOS*. 

I»1 

MANuOOSb 

[N  0*0 

MANU00S6 

31 

,i 

i 

* 


A-44 
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L (NK=* 

10  WOEL  T =,5®TOFLT 
ROEL  T 1 — 1 ,/TDELT 
R0ELT2=2.»pDFLT1 
IF  IKTCTR.FO.0l  GO  TO  50 
20  CONTINUE 
NVAPS-0 

IF ( T I Mt .1 T . T“AX ) GO  TO  50 
KTCTW  =*  TCTO  • 1 
GO  TO  (30,40*170)  • KTCTR 
30  TOFLT=ZDELT2 
Tmax=ZMAK? 

GO  TO  10 
*0  TO£LT=ZDElT1 
Tmax*Zmax  3 
GO  TO  10 

c «•••  ««•» 

c 

50  continue 
A1y*AY 

ZFLwG1=ZFlwG 
zfrwgi=zfphg 
IF(ISTOP.F'E.l) 

CALL  IN  IT 
T IME*T IME .TDELT 
DIST*DIST ♦v°TOELT 
IF (TSTAb ( I ) .GT.TImE)  GO  TO  20 
NVARS= 1 
I«1 

GO  TO  120 

c •»*RUNGE-*UTTA«®» 

60  1*2 

70  GO  TO  (170.80,100,901.1 
80  DELT2=HDELT 
DElT2W=»0ELT2 

ouaouroelt  1 
GO  TO  100 
90  0ELT2=T0ElT 
CELT  2P=R0fl  T l 
QUAD  1 =RO£lT 2 
100  DO  110  K=1 , 75 

Y(I,K)=Y(I,K)*Y(I-1 ,K  *75) "0ELT2 
1 1 0 CONTINUE 
1 20  VXfl*Y(I«l) 

VY«=Y (1,2) 

VZ5=Y (1.3) 

AYD=Y (It*) 

AP0  = Y ( I t 5 ) 

AR0*Y ( I ,6) 

AYE'Y (1,10) 

APE  * Y (1,11) 

APE  * Y (1,1?) 

XX*Y  (1,15) 

YY*Y ( I t 16  I 
ZZ*Y(I,17| 


WAN  1 0 0 5 7 
WANUO  056 
MANU0069 
MANU006Q 
WAnuO  On  1 
MANU0062 
MAN U 0063 
MANUOOb* 
MANU0065 
MANUOObfc 
MANU0067 
MAN!  (0  0 66 
MANUO  069 
MANU007C 
MANU0071 
MANUO  0 72 

»•••  MANUO  073 

MANU007, 
MANU0075 
MANU0076 
MANUO  0 7 7 
MANU0076 

MANUO 076 

MANU0030 
MAN U 0061 
MANU0062 
MANU0O8  3 
MANU006* 
MANUO  0 *5 
WANU0066 
MANUO  087 
MANU0066 
MANUO  Q6v 

9 MANUO  090 

MANUO  09 1 
MANUO  092 
MANUO  0 9 3 
MANU009* 
MANU0093 
MANUO  05b 
MANU0097 
MANU0096 
MANUO  0 99 
MANUO 1 00 
MANUO 1 0 1 
MANUO 102 
MANUO 1 03 
MANUO 1 0* 
MANUO 1 05 
MANUO 1 06 
MANUO 1 0 7 
MANUO 1 08 

MANUO 1 09 

MANUO  1 1 0 
MANUO 1 1 1 


TIME  LOOP 

••••  «*«4 


ISTOP=0 
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CALL  V&3D(VXR.VYB«V?H«AYE»APEfAk£*HXD*YYD*ZZ0tl) 

VhS05XX0#o?*YYi)<>®Z 

Vh=SQRT ( VmSO) 

Va$QRT<VhSfWZO®o*M 
Ay  = 0 • 

4YFP:0  . 

ADFPrO.  9 

TV  1 = YOUS T- VY* 

TvZ»VXH-hr,nST 

I F ( <TVl»«?*TV2*<»2)  .NF.O. ) AY=ATAN2(TVl  » T V 2 ) 

IT  (VH.NE.O.)  AYFP=ATAN2(YY0tXXD) 

IF(V.NE.0.)  APFp=ATAN2 (-ZZDf VH) 

I F ( N V APS .NF.O)  RETURN 

IF ( I .EG. 3. OP.  INO.EO.  1 ) GO  TO  130 

c variations  due  to  inputs  ••• 

ADISP ( I ) SA YfoUTPP 
AO  I SP ( 2 ) = flDF OUTDO 
AOISP ( 3) =A0E*UTRD 
APATE ( 1 ) =A yD*OToo 
AOATE  (<r  ) SADOoUTPR 
AOATE (3) = ADD*DTRP 
CALL  V A R I 

IF (EXIT. NF.O.)  GO  TO  170 
CALL  CONTol<2» 

D£lAlE.  = DElt  A ( 1 ) oxSYS  ( 1 ) 

AL£CPl=ALGFZ*Ofc’LALE 

DELAlL=uElTA(2)«»xSYS(2) 

alc yp=ue  l a t l 

0ElPU0  = 0ElT A ( J) ox  SYS (3) 

ALGFPU=ALGF ♦ del PhD 
130  CALL  anal 

IF (EX IT. NF.O.  ) GO  To  170 

Lp=Ql-apo« ( Avo*niZI y-aro*Ixzj 

NPcQN**AP0°  ( A P 0 • D I Y I Y*AYO*lXZ) 

Y ( I * 7 ft  ) = xF*OHASS-  AP0«VZB  * AyD«VYB 
Y ( I * 7 7 ) = vF*PMASS-  AYO^VXB  ♦ ARD*V78 
Y(I*7«J)=  ZF°dma<;s-  arO*VYB  ♦ APl)°VxB 
A YOO  = Lp°OP  T xZ*NPoUPl x 

APOD=  (Gm-Ay0°AP0oDI  x I Z ♦ ( A Y 0 ♦ A P 0 > ° (AYD-AWO)  °IXZ)  * B I Y 
A«0D  = LP*0P I Z*nmoqpi x z 
Y { I * 79 ) =AYOO 

r ( i tbOj =apoo 

Y ( I • ft  1 ) =Aonf) 

CAPErCOS (APE) 

SAPEsSlN ( ARE ) 

CAPE  rCOS  ( A D E ) 

IF (AHS (CAPF)  .LT, 0.001  ) GO  TO  170 
Y(I.ftS)=  (APO°SADE  ♦ AYD*CAPF.  ) /CAP£ 

Y ( I * ftb ) = APO^CAPE  - AY0*SAPE 

Y ( I • ft  7 ) a APO ♦ Y l I t ftb  ) ®SlN(APE) 

Y ( I t 90 ) * XXO 

Y ( I * 9 1 ) a YYO 
V(I*9?)«  7ZD 
IF(INU.NE.O)  GO  TO  ISO 
I * I ♦ 1 


mANu0 i 12 
M A N u 0 1 1 3 
MANUO  1 14 
MANUO i IS 
MANU0  1 1 6 
MANU0 1 1 7 
MANUO 1 1 ri 
MANU0  1 l y 
M ANU0 1 20 
MANU0 1?1 
MANU0 122 
MANUO 123 
MANUO 1 ?4 
MANU012S 
MANUO  1 2ft 
MANUO 127 
MANUO 1 2o 
MANUO 129 
MANUO 1 30 
MANU0131 
MANUO 132 
MANUO 133 
MANUO 1 34 
MANU01 3B 
MANUO 1 3ft 
MANUO 1 37 
MANUO 1 3ft 
MANUO 1 39 
MANUO  1 40 
MANUO 1 4 1 
MANUO 142 
MANUO  U3 

MANUO 1 44 
MANUO  Ub 
MANUO 1 4ft 
MANUO 147 
MANUO  1 4*4 
MANUO 149 
MANUO ISO 
MANU0151 
MANUO IS2 
MANUO 1S3 
MANUO  lS^* 
MANUO 1SS 
MANUO iSb 
MANUO 1ST 
MANUO 1 SH 
MANUO 1S9 
MANUO ISO 
MANUO lft 1 
MANUO 1 62 
MANUO 163 
MANUO 1 ft* 
MANUO lftS 
MANUO 16ft 


A -46 


; 


' 
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IFlI.LE.oi  GO  TO  TO 
CO  1*0  I = 1 . 7S 
K * I .7b 

T (4.K  ) = I Y ( 1 .K>  • ( V (2.K  ) »Y  |3iK|  ) »Y  (4.K1  ) ».  1666667 

1*0  YUfl  I *Y<  1«  I)  »TDELT*v(*fi«) 

I NO  = 1 

I »4 

GO  TO  HO 

1 GO  00  160  1 = 1.150 
160  7(1.11=7(4.11 
T=T*TUELT 
I NO  = 0 
1 = 1 

GO  TO  50 
[70  A4=99999999. 

X9ITE  (3)  JPSN.44.A 

PE  TL'PN 

END 


MANUO 167 
“ANUO 166 
MANUG  164 
MANUO 1 70 
"ANUO 1 71 
MANUO  1 76 
MANUO 1 73 
MANUO 1 7. 
MANUO  1 7-3 
MANUO 176 
MANUO 1 77 
MANUO 1 76 
M ANUG  I 7 <# 
MfiNuO 1 mO 
M A N U 0 1 H 1 
MANUO 1 m2 
WANUO 1 M3 
MANUO  i *«* 


SUBROUTINE  MATRIX  (Al *A2*A3*A,n1 > 

DIMENSION  A ( 9 ) 

C COMPUTE  EULER  ANGLE  MATRIX  A FROM  EULER  ANGLES  Al*A2»A3 

C Nl  = l IS  FOR  USUAL  MATRLX 

C Mi-1  rs  FOR  INVERSE  OF  USUAL  MATRIX 

SA1»SIN( A1 ) 

SA2=SIN { A?) 

SA3=S IN ( A3) 

C A 1 =COS (Al) 

CA2=C0S ( A?) 

CA3=C0S ( A3) 

S1C3=SA1*CA3 
S1S3sSA1«<;a3 
C 1 C3*C  A 1 *c  A 3 
C 1 S3  = CA  1 *«.  a 3 
A ( D *CA  I*CA2 
A (3-Nl ) =C 1S3*SA?-SIC3 
A(5-?aNl  ) = ClC3‘>SA2*SlS3 
A ( 3*Nl ) =SA 1 *CA2 
A <S>  eSlS3*SA2*CIC3 
A ( 7 ♦ N 1 ) =CA?«SAi 

A ( 5 ♦ ? #N 1 ) = - 5 A 2 

A (7-Nl ) =S1C3*SA?-CIS3 
A ( 9 ) =CA2°CA  3 
return 
END 


MATROOOl 
MATR0nn2 
MATQ0003 
MATROOO** 
m A T R 0 0 o S 
maTPOOMM 
MATROOO  7 
MATROO  0* 
MATHOOOR 
MATP0010 
MATROO 1 1 
MATROOD 
WATR0013 
MATROO  ] <* 
m^TPOO  IS 
MATROO lb 
MATROO 1 7 
MATROO. * 
MATROO 1 R 
MATC0020 
MATR0021 
MATR0022 
MATP002 3 
MATRC02- 
MATR002S 
MATROO  2b 


O O 
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common  /FOPCE/ 


XF  t xFPwG*  xFLWG,  xFf  (_£  , *FF<jS  • xF»  J£  T.  xF{_  JET  f xFRJ,  mn£mq0  02 

1 X Ft.  J t X FGUN  *xFF[N*xF»»«  x ADD  ♦ MNFM00ni 

YFfrFFuSfYFPjETtyFLJET#  Y f P J * Y F L J * YF  GUN  « Y F F I N • yF  w * 

YADD*  MN£»-r(00b 

7F • 7FPwG*ZFLWGtZFELE.ZFFuS.ZFHjET»ZELJET#ZFPj,  ^t-u006 

4 Z E L J • ?F  GUN  • ZF  w « Z A[)0  * mnEm0007 

5 QL •ui«G»LL*GtLEU:  tLFUS»L*JET  ♦ LL  JE T • pmp  j , »mi_  J t lGUN  * *-NF * 0 0 o n 

A LE  I\.PGYPO»PMftnO«  m N£Mf<onv 

b QMf  upmG  *mlwG  . m£LE  «mFuS*  mRjFT«  mL  Jt'  T • j , P«L  j , m^un  » mn£  M00  1 0 

B mF lM,PGYPO*PMAOUf  MN£  mq  o 1 l 

7 ON#NPwG.NLwGtN£LE  .NFUS*NPJET.NLJET,YM^J,  YML  J « NGJN  » mnF.m0 0 12 

C NF  In  , YGYPO » Y «ADO  Mfg£MO0l3 

COMMON  /STPIAb/  E t74)  *F  (6)  ,X  (b)  tUL#OM,ONtnx*0Y.0Z*IX.  IY*I7«  MNEmOOI** 

PD  ( 6 » 7 ) .DTP.EPO*EPP(b)  , * m 1 , wh(j  , Q 1 2 , SPr)  t b « b t 1 ) , mn£m,)0  lb 

XEL ( 1 4 ) tXER<7>  f AF  C ( 2d)  * xFN  ( 7 ) , XF  b ( 3S)  , xGn ( 7 ) ♦ «NEM  Of)  1 b 

X I T (21)  * XWG  (21  ) « YwG (21  ) • Y^L  (21  J * YFn  (21  I « RLCG  • MNEu00i  7 

DAMP,0EP0 (ill  • FPU 5 « ERDx ( 1 1 ) *MASS« «LCG, xCON ( b3>  , MNEMO01 tt 
X JET  < 1 4 ) f XMIN,  AYfcFP*CNPCD.GUESS*NPASS.PDPHl  (b,7)  , MNEMOOI** 
STACG#TZERO*DTwPSQ*MXPASS  » XLI^IT ♦ XPJT ( UO ) • YRjT (7) MNf  **0O?0 


*XLJT (84) *YLJT ( 7)  MNEM0021 

COMMON  /STPIMA/  AYtVMt AGw» lxZ*xXO«YYD«ZZ0.ALGFt APFPt AYFP*CGwLt  mn£mQ022 

COLL (8)  * C YCF ( 3 ) *CYCL(3)  »DIST.kCIT(20)  *peDA (3)  , -N£moo2  3 
TlM£fTMAX*xClT  ( 20  * b ) fALGEZ*  ALGE  i » ALGE2*CGSTA  * m.\£moo?«* 

CPwlC*DlXlZ*0rYrx.()lZlY»FrKTS*KP£AD»PIU3  0t  MN£M0  02S 

TSTAR  (14)  *ZMAX2»ZMAx3*ASEC0Lf  CYPwiCtRUDI.ND*  mn£m0  0 2G 

ZDELTl  .ZDELT2  mnf*0027 

COMMON.  /STAMAN/  XX  * YY  * ay  1 I y t APriG  , AWBG«  ASEP  » AYbG,CG8L*DPI  X *DPI  7 . MNEM0  02b 
Pb50, AYOMX  *DELT2*0PI XZ#mDELT«hGUST  tKTCTP«»MASS*  mNEm00 2n 

T *OP  I ♦ VGUST  t I STOP  , X AGUN  » Y AGUN  t Y GUS T * Z AGON  • DEL T2»  ♦ mn£-0Q30 
P01DT»*RDFLT1 «pDElT2  MNEM0031 

Gi*  AP  ,PED«Q^Gf  AlEL  » TAXL*  TAXR*  XAwG*ZA¥G*  AlCYP*  MNEM0  0 32 

ALF  in  I ALLWG*  ALR*YGtCOELE  *C'»F  iNf  COLwGt CQRwG*  CLELE  * mn£mqo33 
CLF  IN  *CLL  CLR«G«  CW ING*  C YCR1  rCYCR2*  RANGE  *WGC0L*  •‘•Nt-0  0 3'* 

XAELFfXAF IN,XAFUS,XAJET ♦ YAFIN*ZAtLE ♦ZAFIN«7AFuS«  mnfmQ03S 
YAELE*YAFUS,  YAL*»G,YARwG.YALJET  . YAPJET,  7AJET*  MN£M003fc 

ALECPl.ALGFPD»HALFPI*YGOSTw*ZFLwGl»ZFPvGl  MN£M0037 

P I * 77 ♦ ALT  * T * APOD*  ARDOt AYUD*0TWR  *Gmaxv  «PATE1 t M N E M 0 0 3b 

RATF?»ST  OP  2»X  GUST,  GMAXVl*GMAXV2*GMAXV3f  GuST  YP,  MNE**0  0 3V 

LNGThI .PILGmI ,s TAPT2  mn£m0040 


COMMON  /MaNALZ 


COMMON  /ROMAN/ 


COMMON  /M ANARO/  I • V « M*  AG  • TOEL  T #HGifSTE  » HGUS  TF  tMGUSTw*  VGUSTE  • VGi)$TW  » mn£m0  1 


COMMON  /STANRO/ 

1 

COMMON  /STARAN/ 


YGUSTF,GF-(D»GLATfGVERTfVXri,v7B*AMD*VYR,APD»AYD,  mn£m00<*2 
COLSTK,CYSTKl,CYSTK2*PE>)AL»AYt»APE*APE  MNE  M U 0 **  3 
J*w,LlNK,QELE*YSN0»YFIN(2)  * ZFE  L ( 2 ) * CONDI .SwlNG»  MNEM0044 
P ILGH2  • PWGt'L  1 MNEM004S 
C3»C4  »Rw  «CLP  *CLR  *OCDf UOL  tDQN.CLBO »CNHO»FT AQ*NjFT  * mnEm0 04b 
QF  IN.ClPCL ♦ YFS ( 14 ) ,CNHCl»CNPCL*CNPCOtCNPCL.CCL*S.  mnEMOO* 7 
D3ELF«FNS^C*LwrNG,PPlST*YA£PO<jl»J)*AP8jET,APRjET»MN£M00^^ 
AYSjFtf  CNPCOl  ,CNPC.)2*C0LJET*DXPGEL#DZ4Gt'L  iETAQMX*  mnpmoouw 


4 PwGwk  1 ♦RCwING*S>*lNGH 

COMMON  /TOPLOT/  ah(3) ,al (3) *EXIT*IC0M(20) tIPSN, 

1 NPART  *NVAPA  ,Nv/ANU,NVAPC  tNSCALE 

1 ,NVAPS*NPRINT ,nT ImE 

COMMON  /FORY/  Y(4,lb0) 

COMMON  /RJETS/  NJtTRtXSTK (3)  ,X0 ( 10)  f XO  ( Id » • XR  ( 101  • TPOS ( 10)  « 
1 TNEG(IO)  tXAJETR(lO) tYAjET«(10) »ZAj£TR(10)  • 


MNE MO  Ob  0 
MNEMOnSl 
MNEMQ0S2 
MNEMQ0S3 
MNEMOOS** 
mnEmOOSS 
MNEMQ0S6 
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2 A YUJTP  ( 10)  < APRjTH  ( 1 0)  » JTPCON  ( 10  ) -NE-00 

PEAL  IX . [ y . I Z. I XZ.-ASS. ITORS.LLJE  T.LPJET .-LJET .-HjET.NL JET. NR JET  “NT -0  0 
DI-FNSKjN  EORI/->  mne-00 

equivalence  (xf.foR(I))  mne-oo 

IF  (nvahc.nf  .2 1 r, o To  10  -ne-oo 

A.  V ah  c - u MNE“00 

GO  TO  20  -NE-00 

10  CONTINUE  MNE “00 

IF (NV ARC .NE .0 ) NVA»C=1  MNE"00 

20  CONTINUE  mnemOO 

CALL  UNIT  mnemoo 

AlEl  =0 . MNE  MOO 

ALEIN=0.  mnemoo 

ALL»O=0.  mnemoo 

ALR*G=0.  mne-oo 

APO  = 0 • MNEMOO 

AP00=0.  mnemOO 

AR«UET=0.  MNE-OO 

ARO*0.  MNE-OO 

AROD'O.  mne-00 

AYO*  0 • MNEMOO 

AyO0*0.  MNE-00 

COLYG  = 0.  -NE-00 

CO°*G  = 0.  MNEMOO) 

COELF  = 0.  MNEMOO 

COEIN  = 0.  MNEMOO 

CLLWG  = 0.  MNE-OOi 

CL«*G  '=  0 . mne-00 

CLELE  = 0.  mne«00 

CLEIN  = 0.  MNEMOO 

OOL  = 0.  MNE-OOi 

DON=0.  MNE-OOi 

ETAQ=0.  MNE-00 

E X I T = 0 • -NE-00 

GUSTYH=0 • MNE"00 

HGUSTE=0 • MNE-00 

MGUSTE=0.  MNE-00 

hgustw=o.  mne-00 

IN0=1  MNE-00 

NwAG-0  -NE-00 

VGUSTE=0.  MNFMOO 

VGUST -=0 • MNE-00 

YGUS  TF  = 0 • MNEMOO 

YGU5T  *-0  . MNE-01 

XEL J=0 • 0 > MNE-01 

YELJ'0.0  ’ MNE-01 

TFLJ‘0,0  MNE-01 

RMLJsO.O  MNE-01 

PML J*  0 • 0 MNE-01 

Y-L J = 0 • 0 -NE-01 

XERJxO.O  -NE-01 

YEP J = 0 • 0 MNE-01 

ZERJxO.O  -NE-01 

PMRjxO.O  mnE-O] 

PMRjxO.O  MNE -0 ] 


'-i 
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TMSJsO, o 
*400*0 . 

*4,00=0. 

ZAOD=0 • 
tM4on=o . 

P-400=0 . 

*•<400  = 0 . 

DO  30  1=1.74 
FOP (11=0. 

30  CONTINUE 

DO  40  J = 1 , J 50 
DO  40  1=1.4 

* ( I • J I =0 . 

40  CONTINUE 

0I7IYMZ-IY 
DI*I7=I*-1Z 
o r* i « = i *- r < 

IF(*MIN.LT..8T£6fe40F-03)  XMIN=OTR 
IF ( XPI N.GT.DTR > X*I'i  = OTR 

IF(*Ll“IT.LT.(.S*OTP) . OP. XL IMIT.OT.. 1745329)  XLl*«IT  = OTR 
IF  (OA«P  .L  T . (40  . »E«B  ( 1 ) ) ) OAmPiaO . <*EPR  1 1 I 
YAL*G=-*ap«G 
*4LJET=-yaojET 

CALL  VW30  (Xx0.yy0.77D*A*E,APE.ARE,VxB.VY6.VZB,-1) 

V=SGRT (XX0*®2<**0*°?*ZZD**2) 

call  turn  (xfc.v.are) 
p*=i./« 

PASS*  «/3?. IT 
IF (EPOS.EO.O. ) EpOS= . B 
Ap«  lNG  = *»r.  (18) 

IF  (AP4ING.FQ.0.)  ARWINC.=  10. 

SwING=S08T (XWG(1)«40WING) 

CK ING=S» [NG/4P« ING 
PCwING  = 0. 

IF (CwING.NF . 0. ) PC»ING  = 1 ./OWING 
CAO»  = COS  ( A r.w) 

C«G6=.b«C*ING 

YAEPO  < 1 V. 1 I =YAERO (3. 1 ) /YAERO  < 17*  1 ) 

0»WGEL=X  AwG-XAELF-C  «r-.b»CAGw 
DZWGEL  = ZAwG-ZAtLE*SINlAG».)  «C*G6 
SwINGM=.s«swING 
CNpCDl=C»'prD 

IFINJET.EO.O)  coljet=o. 

CALL  VR30 I T AXL«  0 . «0  . ,-AYRJET . APbJET . ARBJET.XFLJET .YFL JET , ZFL JET • ) 
CALL  XPRO  (XAJET.yAljET.ZAjET.xFLjET.YFLJET.ZFljET.LLJET.MljET. 

1 NLJET) 

call  V 8 30  (TAXW.O. <0. . AYR jet . APBJETf  ARB JET . XFwjETi YFRJET . 7FPJFT • 1 
CALL  XPPO  ( XAJET .YApjET . 7AJET  « xFRjET  • YFR  JE  T « 7FRJET tLR JET . MR JET • 

1 NR Jf  T ) 

CYCB1 =C*STk 1 »C YCF ( 3 ) <CYCF 12) 

CYCP?=C*ST*2*CYCL (3) ♦CYCL(B) 

PEO=PEJAl*PFOA ( 3) <RF  nA (2) 

COLY*=Cf)LSTK 

XSTk ( 1 ) iCyCRI^OTPR 

XSTK  (7)  =CyCR?',DThW 


A-SO 
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XSTK  (3)  ==PED»PEOA  ( 1 ) / (PE  DA  (3)  MOU.  ) 

CALL  VR3D  ( xEC  (23)  . xEC  (28).  xEC  ( 2b)  .AYE  .APE  .ARE  »Y  ( 1 i 76)  .Y  ( 1 . 77  ) , 

1 Y ( 1 > 7«) ,-l ) 


“NEMO 1 67 
MNE  M 0 1 bb 
MNE  M 0 l 6 Y 


Y ( 1 .90)  =x»r> 
y u .<*  l ) =Yvn 

Y ( 1.92)  = Z70 
L I NK  = 1 

IF  (NPART  .f:F  .2)  r-0  TO  bO 

50  WRITE  (b.9(i ) T/FhC»  ?OF  L T 1 . Tmax  , Z0ELT2.  Zmax2.2«AX3 
CALL  IVAR  (EXIT. LINK, TAXL. TAXR.PILGH2) 

60  CONTINUE 
Y(l,17)=Z7 

IE(NPART.NF.2)  RETURN 

C INITIALIZE  VARIABLES  only  IE  A MANEUVER  IS  CAlLED  EOR. 

LW!Nf.  = 0 


“NE“0 I 70 
MNE«0 1 7 . 
MNE“01  7c- 
MNE«0 1 73 
MNE  w 0 1 7 A 
MNE  MO  l 75 
MNEMO 1 7b 
MNf.MO 177 
MNEMO 1 7o 
MNE“0 I 7“ 
MNE  M 0 1 80 
“NEMO  1 81 


RMASS=l ./MASS 
»IY=l./IY 

DP  = I X * I 7 - IXZ»IXZ 
IEIDP.EO.O.)  00  TO  70 
DPIXZ-IX7/0P 
DP  I X = I X/DP 
DPI Z= I Z/OP 
RETURN 
70  CONTINUE 
E X I T = 1 • 

WRITE  (6.80) 

RETURN 

80  FORMAT  ( lORHO  CHECK  FUSELAGE  INERTIAS.  THE  NUMBERS  INPUT  Aof 
1YSICALLY  IMPOSSIBLE  AND  CANNOT  BE  HANDLED  BY  THIS  PROGRAM. ) 

90  FORMAT  <lM0.S8X,23HINPUT  DATA  EOR  manEUVER/3SX  . S5hSTART 

1T1  max!  DELTZ  MAxZ  MAX3  /3Sx.  SbH(SEC) 

Z (SEC)  (SEC)  (SEC)  (SEC)  (SEC)  / I H, Z9X , 6E 1 0 . 3 

3 //3Sx . 6lHJ  XCIT(J.i)  (J.2)  (J.3)  (J.8) 

AJ.5)  ( J , 6 ) ) 

END 


MNEMO 1 82 
MNEM0183 
MNE  MO  1 8“ 
MNE  m 0 I 85 
MNEMO 18b 
MNEM0187 
“NEMO  1 8« 
MNE  “ 0 1 89 
MNEM0190 
MNEMO IS. 
MNE“0 192 
MNE“0 1 93 
I P» 

MNEM01 95 
OELmNE  mQ 1 9o 
MNEMO! 97 
MNE  M 0 1 98 
(MNEMO 199 
MNEMO ?0  j 
MNEMO  20  1 


SUBROUTINE  MODE  (PD.V.IMODE) 

COMMON  /TRONIC/  UU (6) . VV (6) .TAU (Z2) .DAMP (22) .NUMRTS «GAINB . 

1 INDEX . STGA I N ( 6 ) .TSTAR.C0ELTD,SL0T(3.9) 

COMMON  /YVAOTR/  k VAR ( b ) . PD  I ( 6 , 1 2 I 
DIMENSION  PD (b. 7) .SLT ( 3.9)  . I SLOT (6.2) 

DIMENSION  head (6.Z) .hEAOI (3.Z) 

OATA  HE  A 0 /9hL  A 7 STICK.5HPEDAL.IH  ,1h  .1h  .1H  .10HLONG  STICK. 

1 8HTMR0TTLE « NHL  ThROT  1.9HL  ThROT  Z.9HL  ANGLE  1.9HL  ANGLE  2/ 
OATA  HEAOI/ 

1 10HSD  SLP  ANG.IOhrOLL  ANGLE.BHYAW  RATE.7HEWD  VEL.10HANG  of  atk 
Z 9hP ITCH  ANG/ 

DATA  ISLOT  /3 .8 ,0 .0 . 0 • 0 .2. 1 .6,9. 10. 11/ 

COLO  = COE  LTD 
WRITE  (6.30) 

ISLTE*0 


MODEOOOl 
MODE  0092 
MODE  0 0 0 3 
MODE  0 0 0“ 
MODE  0 0 05 
MODE  0 0 Ob 
MODE  0 0 n 7 
MCDEOOOb 
«ODE0009 
• MODE  0 010 
MODE  0 0 I 1 
MODEO  0 I 2 
MODE  00 1 3 
MODEOOl- 
MO0E001 S 
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INOF  * = 0 
«5LT  7 = -/ 

DO  20  1=1*3 

KSLTT=*SLTT. 3 

Call  SLTT  (SLT .SLOT.bSLTT) 

ISlTF  = I^LTfr*3 

Jl  = **  IMOOE-2 

00  10  J=l,jl 

jsltf  = ISlOT  < j • I mode ) 

CALL  SLTE (PDl . ISLTE. JSLTE . IMODE) 

COELTO=tO=LTD/COLD» . 3^3  7 

IF  I I .ED. 1 . AND. I MODE. FQ. 2)  COELTD=COELTD*V*.30*H 
IN0EX=In0Ex«1 

FBI TE (6.50 ) hE AO  1 I I . I “ODE ) » hE AO  < J . I MODE ) . 

1 (uij(L)  «VV  (L)  .L  = l .3)  .COELTO 

10  CONTINUE 

CALL  SLTT  (SLOT , SLT ,*SLTT) 

20  CONTINUE 
WRITE  (b,*0) 

RETURN 

30  FOR“AT(1ho.  57x . IShNUMERATOR  ROOTS/ 1 X . 1 1 7NDEPEND . V AR . 

1 VAR.  PEAL1  I MAG  1 REAL2  IMAG2 

2PEAL3  I maG3  GAIN) 

*0  FOP“AT(///  3*h  ALL  TIMES  APE  IN  UNITS  OF  SECONDS/ 

1 8 1 H all  GAINS  apE  IN  UNITS  OF  M/SEC.  HAD  0»  PAD/SEC  PER  CM. 
2NTROLLEP  DEFLECTION) 

50  F 0°“A  T ( 1 m ,A10.5x.A10.7GlA.b) 

END 


MODE  0 016 
MODE  0 01 7 

MODE  0 0 1 8 
“ODE  0 0 1 P 
MODE  0020 
MODE  0 0 21 
MODE  0 022 
M00E0023 
MODE  0 02“ 
MODE  0 0 25 
“OOEO  02b 
MODE0027 
MODE002O 
MODE002B 
MODE  0 030 
MODE  0 0 31 
MODE0032 
MODE0033 
MODE 0 0 3* 
MODE  0 0 35 
lND£P.MODE003b 
“ODE  0 0 3 7 
MOOE0038 
MODE 00  3N 
OF  COMODEOOAO 
MODEOO* 1 
MOOEO  0*2 
MCOEO  C * 3 


SURBOUTINF  OFFTpm 

COMMON  /STOIAb/  T l (66) .DL .DM.DN.DX .DY.OZ. T2 ( 1 1 3) .XFC (2BI . 

1 T 3 ( 1 7B ) *“ASS 

Common  /STB  IMA/  T*<3)  .IXZ.TSI170)  . D 1 X I Z . D I Y I X . D I Z I Y 
COMMON  /MANABO/  I . V , Tb < 1 1 I . VXH, VZH. APD. VYB.APD.AYD.T7 ( »)  , 

1 AYE. ABE. ABE 

COMMON  /Fopy/  y ! * . 1 50 ) 

BEAL  MASS , I xZ 

IF ( Y ( 1 .85) .EO. 0 . ) GO  TO  10 

ARD*-Y (1.65) *S  I N ( APF ) 

CAPE  = Y ( 1 .65)  «COS  (APE) 

APD=CAPE*5IN(APE) 

AVD=CAPE*C0S(ARE) 

GO  TO  20 
10  CONTINUE 

IF ( Y (2 .feb) .EO. 1 . ) GO  TO  20 
APED=32.l7»(Y(2,Rb)-C0S(APE)#C0S(ARE))/V 
AP0=AP£0 
20  CONTINUE 

CALL  V B 3D  ( XFC (23 ) . XFC ( 2*1  . XFC ( 25) , AyE. APE . ABE. Y ! 1 . 7b) . Y ( 1 . 77)  , 
1 Y ( I , 78  ) ,-  1 ) 

Ox  • MASS* ( Y ( 1 . 7b) * APO#VZB-AYO»VYS) 


OFFTOOOl 
OF  F T 0 0 02 
OFFT0003 
0FET000* 
OFF  T 00  05 
OFFTOOOb 
OFF  TO  0 0 7 
OFFT0008 
0FFT000B 
OFFTOOIO 
0FFT001 1 
OFF  TO  0 1 2 
OFFTOO  13 
OFFTOOl* 
OFFT0015 
OFFTOOlb 
OFF  T 0 0 1 7 
OFFT0O18 
OFFTOOIB 
OFFTO  020 
OF  F T 0 02 1 
OFF  T 0022 
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Oy 

s 

mass* (7(1. 77). AYD»VX8 -ABO »VZB) 

DZ 

s 

MASS*(V(1.7e).AR0*VYH-AP0*VXH) 

DL 

= 

app* (Ayd»diZIv-arO»IXZ) 

PM 

= 

ARDWAVDOOIX 1Z« (APD.AYO) » (AMO-AVD) «IXZ 

ON 

APD»(APl>»DIYIX«AyO«*IXZ) 

30  CONTINUE 


RETURN 

ENO 


OFFT002J 
OFF  T 0 02** 
0FFT002S 
OFF  T 0 0 20 
0FFT0027 
OFF  T0  92A 
OFFT  00?y 
OFFT  0030 


SURBOUTINF  Papa  (W.CONQl) 

CONMON  /STB  I am/  Tl (95) «PD (6.7) .T2 (d) .KM1.T3 (3*9) .NPASS 
COMMON  /mam  a(_/  TA ( 6)  , T A XL  • T AXB 

COMMON  /MANAPO/  TS ( 19) .COLSTK .CTSTKl .CYSTK2, PEDAL .AYE. APE .ARE . 
1 TLSTK (2) . TmlSTK (2) 

COMMON  /TOPLOT/  T6I6I.EXIT 
0I«£NSION  vAB (11) 

EQUIVALENCE  I VAB | 1 ) .COLSTK) 

IF (CONDI ,NF . 0 . ) GO  TO  10 
CALL  wRFm 

Call  mWVP  (3.VAP.KMI .PD.TAXL.TAXB) 

10  IF(EXlT.NF.o.)  GO  TO  20 
WRITE (0.60) 

GO  TO  JO 

20  WRITE (6.50)  NPASS 
30  CONTINUE 

CALL  TIME*  /TUSFO.DT?mE,TlEFT) 

WRITE  (6,70)  NPASS. TUSEO 
*0  PETUBN 
SO  FORMAT 
1 

60  FOomaT 
70  FORMAT 
1 

ENO 


( 36m  1 A I RCR  AFt  IS  »«*NOT<>«»  TRIMMED  aFTEB.15. 

1?m  ITERATIONS. / 13X ,9h»»«o*««*» ) 

(21H-AIWCRAFT  is  TRIMMED.) 

(SX6HPAPT  1. 16X13. 12H  I TE R A T IONS . 20 X F 1 0 . 3 . 

3Sh  MINUTES  ELAPSED  COMPUTING  T!«E  ) 


PAPA0001 
PARA0002 
PABA000 J 
OARA000'. 
PAPA000S 
PARA0006 
PARA0QO7 
PARAOOOM 
PARA0009 
PAR  A 0 0 l 0 
PARA001 1 
PARA0012 
PAP A 00 1 3 
PARA001  •» 
PARA001S 
PARAOOlb 
PAPAOO 1 7 
PARAOO  IS 
PARAOO 19 
PAPA002J 
PAPA0021 
PARA0022 
PAR AO  02 3 
PARAC  0 2a 
PARA0025 


SURBOUTINF  PPLOT 

COMMON  /TOPLOT/  AM ( 3) , AL (3)  .EX  I T. ICOM (20 ) . IPSN. 

1 NPART.NVAWA .NVAPd .NVARC .NSCALE 

1 .nvars.nprint.nTIme 

common  /PlOTDX  hF AD ( 2 . 2 1 0 ) 

DIMENSION  A (209) 

DIMENSION  AC ( 3 ) . AD ( 3 ) . NV AR ( 3 ) .RATE ( 3) 

DIMENSION  LINE ( 101 ) 

EQUIVALENCE  (NVAP ( 1 ) .nvara ) 

DATA  I1/1m1/,I2/1m2/.I3/1m3/,I»/1h»/,IS/1m5/.I6/1m6/.I7/1m7/. 
1 IH/1h  / 


PPL  OO  0 0 1 
PPL00002 
PPLOOOOJ 
PPLOO  0 0» 
PPLOOOOS 
PPL00006 
PPLOOOO  7 

pplOOoos 
PPL  0 0 0 0 9 
PPL  OO  0 1 0 
PPLOOO 1 1 
PPLOO  0 1 2 
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CAUL  "HOT 

c change  proper  plot  scales 

imnscale  ,lt,*i  go  to  10 

NSCALE=NSCALF-4 
Ml  3)  = Aw  I 3) • 1 000. 

Al  I 3)  =AL  ( 3)  <*1000. 

10  IF ( NSC AlF , L T . 2 ) GO  TO  i? 0 
nscalE=nscalf-2 

aw ( ? i saw i ? ) • i ooo . 

AL  (?)  =AL  (?)  <*1000. 

?0  IF (NSCAlE ,LT  . 1 ) GO  TO  30 
NSCALE=NSCALF-l 
am ( 1 ) = AW ( 1 | «1 OOO . 

AL ( 1 ) »al ( 1 ) • 1 000  . 

30  00  60  N=l,3 
L wNVAP ( N I 

IF(AhIN) .NE.AL IN) ) GO  TO  AO 
AL IN) =0. 

AH  IN)  =10. 

*0  CONTINUE 

IF(N.EU.l)  “=I1 
IF { N . Ed .2)  m=I? 

IF(N.E0.3l  w=I» 

IF(L.GT.0.AND.L.lT.?10)  GOTO  SO 
WHITE (6*180)  N,  (HEAO(K.210)  , K * 1 , 2 ) 

AM (N) =-1000  . 

AL (N) =-2000. 

GO  TO  60 

50  WR(TE(6.180I  M, (WEAO(K.L) »K*1.2> 

60  CONTINUE 

C COMPUTE  SCALING  constants 

00  70  1*1,3 

PATE ( 1 ) * l Aw ( I ) -AL ( I ) ) 210 . 

AC ( I ) *10. /PATE ( I ) 

70  AO ( I ) =1 .S-AL ( I ) ° A C < I ) 

C wPITE  CYMHOL  AND  SCALE  HEADING 

W»ITE  (6.160)  II.  Al ( 1 ) ,AH( 1) .PATE ( 1 ) .13, 1 1 , I? 
WHITE  (6.160)  I?.  Al (2)  .ah (2) .RATE (2) • IS. 1 1 . I* 

WRITE  (6.160)  14.  Al  (3)  . AH<3>  .HATE  (3)  , 16. 12.  I<* 

WHITE  (6.170)  17. II, 12. I* 

C INITIALIZE  LINE  TO  BLANKS 

DO  80  1*1,101 
80  LINE  ( I > = I «-> 

CALL  TIME*  (TUSED.ToELT.TLEFT) 

90  HEAD  (3)  JPSN.T.A 

IF (T .GT .9999. E»04)  GO  TO  150 
NTI“E=NTIme*I 

IF(NTIMF.FO.nphinT)  NT  I me *0 
IE (NT 1ME .NE. 0)  GO  To  HO 

C SCALE  data  To  fixed  point  POSITION  on  scale 

WH*A(N0AHA)»AC(1)*AD(1) 

M.A  ( N V A P H ) • AC  (2)  *A0  (2) 

WY*A(NVARCI*AC(3)*An(3l 

c check  for  eoualitt  of  variables 

IFIK8.E0.KX)  GO  TO  100 


PPL00013 
PPLOOOl*. 
PPLOOO IS 
PPL00016 
PPLOOO 1 7 
PPLOOOlw 
PPLOOO 19 
PPL00020 
PPL0002 1 
PPL00022 
PPLO0023 
PPLO0O24 
PPL0002S 
PPLOO  026 
PPL  00  027 
PPL00028 
PPLOO  0 29 
PPLOO  0 30 
PPLOO  0 3 1 
PPLO0032 
PPL  00033 
PPLOO  0 3-* 
PPLO0035 
PPL00036 
PPLOO  0 37 
PPLOO  0 36 
PP 100039 
PPLOO  0 4 0 
PPL00041 
PPLOO  042 
PPL00043 
PPLOOO-4 
PPLO004S 
PPL0004H 
PPL00047 
PPL0004H 
PPLOO  049 
PPL00050 
PPLO00S1 
PPLOO  052 
PPL00053 
PPL00054 
PPLOOOSS 
PPLOOOS6 
PPLOO  0S7 
PPLOOOSS 
PPLOOOS9 
PPL00060 
PPLOO  061 
PPL00062 
PPL00063 
PP LO006* 
PPL  00  0 KS 
PPL00066 
PPLO0067 
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IMK8.cR.KY)  00  TO  110 
IF(KX.EO.KY)  00  TO  120 

C CufCK  TO  SEE  IE  VARIABLES  fall  ON  scale 

IF (Kb.GE. I . AN0.k8.LF. 101 ) LINE (Kb) rll 
IF  <KX .Gf . 1 . AND.KX .LF.101 > L INE (Kx ) = 12 
IF (KY .OE. 1 . AMO.KY.LE . 10U  L INE (KY ) = 14 
GO  TO  1*0 

100  IF (KH.EO.hy)  GO  TO  130 

C FIRST  AND  SECOND  VAR I ABLE  S ARE  IN  SAME  POSITION 

IF (KP.GE. 1 . ANO.KH.LE . 10  I ) LINE  (Kru  = 13 
IF(KY.GF.i.ANO.KY.LF.lOl)  LINE (KY ) =14 
GO  TO  1*0 

C F 1 8 S T and  ThIPD  variables  are  IN  same  POSITION 

1 1 0 IF (KH.GE. 1 . ANO.KR.LE. 101 ) LlNF(Kb)=I6 
IF(KX.GE.l.ANO.KX.LE.lOl)  LINE (KX) =12 
GO  TO  140 

c second  and  third  variables  are  in  same  position 

120  IF (KR.uE . 1 . ANO.KR.LE. 10 1 ) LINE(K0)=I1 
IF (KX.GE. 1 .AND.KX.LF . 101 > LINE (KX) = 16 
GO  TO  140 

C ALL  Three  VARIABLES  are  IN  same  POSITION 

130  IF  (Kb.GE  . 1 . AN0.K9.LF  . 10  1 ) LINE(Kb)=I7 
140  KR I TE  (6.190)  T.LINF 
C RESET  LINE  TO  BLANKS 

IF (KH.GE. 1 . ANO.KR.LF . 101 ) L INE (Kb) =Ib 
IF (KX.GE. 1.ANO.KX.LF.101)  LINE (KX)=IB 
IF (KY.GE. 1 .ANO.KY.LE. 101 ) LINE (KY) =18 
GO  TO  VO 
ISO  CONTINUE 

call  TIMEX  (TUSFO.TdELT.TLEFT) 

KRITE  (6.200)  TOELT 

return 

160  FORMAT 
1 
2 

I 70  FORMAT 
1 
2 

3 

4 

180  FORMAT 
190  FORMAT 
200  FORMAT 
END 


(lH  .10X.9HSCALE  . A 1 , 8H  FROM .F11.3.4H  TO.F11.3. 

lOH  1 INCH  = . F V . 3 . 1 2 X . A 1 . SB  FOR  .A1.3h  ♦ .A1.4X. 

1 9h  ON  SAME  PRINT  POS.) 

(H6X.Al.SH  FDR  , A 1 . 3h  . . A 1 , 3H  ♦ .A1.19H  ON  SAME  PRINT  POS 
//67x.6hINChES./T20.1h0*T30.1h1.T40.1h2.T50.1h3*T60»1h4. 
T70.lHS.Tb0.lHb.T90.lH7.T100.lHa.TI10.lH9.TllV.2Hl0/ 
T20.1H«,T30.lH».T40.lH».TSO.lH«.T60.lH».T70.lH»,Tb0.lH*. 
T90.1H4.Tl00.lH«.T110.1H*,Tl20.lH») 

( 7 8 X * fen  SYMBOL  .A1.2H  = . 2A 1 0 ) 

1h  . SX  .F9.2.4X  . 10  1A  1 ) 

( 1 HO .Fla. 5) 


SUBROUTINE  RANG  (A1.A2.A3.61.H2.H3.C1.C2.C3.N1.N2) 


C 


C 

A 

IS 

The 

math  I X 

OF 

THE 

A 

SET 

Of- 

EULFR 

angles 

1 

c 

B 

IS 

The 

MATO  I X 

OF 

THE 

B 

SF  T 

OF 

EULER 

ANGLFS 

c 

c 

IS 

The 

MATH  I X 

OF 

TH£ 

c 

SET 

OF 

Euler 

angles 

PPLOOOHd 
PPL  00  06V 
OPLOOO  TO 
PPL  00071 
PPL00072 
PPLO007 3 
PPLC.OO  7* 
PPLO007-) 
PPLGOOTb 
PPL00077 
PPLOOO  7b 
PPL  00  0 79 
PPLOOO-lO 

pplocori 

PPL  OO  0 -i2 
PPLO0083 
PPL  DO  0 84 
PPL0008S 
PPLOOOflfe 
PPLO0067 
PPLOOObb 
PPLOCOhV 
PPLO0090 
PPL0009 1 
PPL  OO  092 
PPLOC093 
PPL00094 
PPLO009S 
PPLO0096 
PPL00097 
PPL  0 0 09b 
PPLO0O9V 
PPlDO 100 
PPLO0101 
opLOC 1 02 
PPLO010J 
pplOOIo. 

rploo 1 os 

RPL00106 

PPL00107 

pplooiob 

PPLO0 1 09 
PPLOOllO 
PPL001 1 1 


rangooo. 
RANG0002 
RANG0003 
RANG0004 
RANC-OOnS 
RANG 0006 
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C N 1 = 1.  N2  = 1 IS  EOn  H*A 

c ni=*i.  n?=  i is  foq  ( transpose; 

C Nil  1*  N2  = -l  IS  EO°  “(TRANSPOSE)*! 

C N l **  I * N2  = -l  IS  FOO  HI  TRANSPOSE ) »A ( TRANSPOSE ) 

C 

DIMENSION  A (3.3) .8 <3.3; ,C(3. 31 
C CO“BUTF  A AnO  » MATRICES 

CALL  MAT  Rjx  ( a 1 < A2  . A3  . A ,t»l ) 

CALL  MATRIX  ( M 1 , R2  .M3 . 3 ,N2 ) 

C COMPUTE  c MATRIX 

00  10  I = 1,3 
DO  10  J= l , 3 
C ( I . J) =0  . 

00  10  L-1.3 

C(I.J>=C(I,J)*H(L.J)«A(I,L) 

10  CONTINUE 

C CHECK  TO  SEE  IF  PITCH  ANGLE  IS  90  DEGREES 

IF (C ( 1 . 1)  .PO.O . . AND.C ( I .2)  .EQ.O . ) GO  TO  AO 

c i = at an2  ic  i i .21  .c  ( l . l ) ) 

C3=ATAN2(C(2.3)  . C I 3 . 3 ) 1 
CC3xCOS  (C3) 

IF (APS (CC3)  .LE.0.001)  GO  TO  20 
C2*ATAN2((-C(1.3)»CC3)«C(3«31) 

GO  TO  30 
20  CONTINUE 

C2=ATAN2 (-C <1»3),(C(2.3)»SIN(C3>>) 

30  CONTINUE 

C CHECK  TO  SEE  IF  C1.C2.C3  APE  IN  WRONG  QUADRANT 

IF ICOSIC2) .GE.O.)  RETURN 

C PECOMPuTE  C1.C2.C3  IN  CORRECT  QUADRANT 

Cl =ATAN2 (-C ( 1 .2) .-C ( 1 . 1 ) ) 

C3  = ATAn2(-C(2.3)  , - C (3,31 ) 

IF <ARS(CC3)  .LE.O.OOI)  RETURN 
C2sATAN2 ( <-C( 1 . 3 I «COS  <C3) ) ,C (3.3) ) 

RETURN 

C RESOLVE  INDETERMINACY  CAUSED  BY  PITCH  angle  by  using  old 

C YAW  ANGLE 

*0  CONTINUE 

C2  = -SIGN! 1 . 570796, C < 1 ,31) 

C3= (ATAN2  |-C(2. 1) • (-C  U .3) *C(3. 1 ) ) )-CI) ®C ( 1 .31 

RETURN 

END 


RANG0007 
RANGOOOo 
RANG0009 
RANG0010 
RANGOO 1 1 
RANG0012 
RANGOO 1 3 
RANGOO 1 A 
RANGOOlb 
RANGOOlb 
RANG001 7 
RANGOO I « 
RANG0019 
RAN60020 
RANG0021 
RANG0022 
PANG0023 
RANGOOEa 
RANG0025 
RANG002& 
RANG002T 
RANG002B 
RANG0029 
RANG0030 
RANGOO  3 1 
RANGOO  32 
R ANGO  0 3 3 
RANGOO  3 a 
RANG003S 
RANG0036 
RANGOO  3 7 
RANG003B 
RANGOO  39 
RANGOOAU 
RANC'OOAl 
RANG00A2 
RANGOOA  3 
RANG  0 0 A a 
R ANGO 0 A b 
RANGOO*b 
RANG00A7 
RANG00A6 


SUBROUTINE  RATI  ( X . £POX . * L I “ I T , V AR • A T , 8T » C T , A TH • 8TH , CT H ) RATIO’-. 


COMMON  /KVARTR/  KVAP|b)  RAT; 

DIMENSION  VAR ( 1 1 ) ,X (6)  .EPDX ( 1 1 1 RATI 

PATI0=1.  °*T 

RAT  101 *1  . RAT  : - 

00  10  1 = 1, IS  R» 

C CHECK  TO  SEE  IE  any  CORRECTION  EXCEEDS  LIMITS 

IF<AHS<X<I1 I.GT.xLImiT)  RATI01=ABS(XLIMIT/X(I1) 
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AO 

AOJ7689 
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C CHOOSE  PATIO  SO  THAT  LARGEST  COPBECTION  * LIMIT 

IF|BATIO.LF.°ATIOl)  GO  TO  10 
PAT  1 0 = BA  T I n l 
I 1 = I 

10  CONTINUE 

C MAKE  CORRECT  I ONS 

DO  20  1*1.6 

VAP  <K  VAP  ( I ) ) = VAP  (K\/aP  ( I > ) »X  < I ) »WAT  tO«EPDX  (KVAP  ( I > ) 

I F ( K V AP ( I ).EQ.  6. AMO.  (AT  .NE.0..OR.HT  .NE.O..OP.CT  .NE.O.)) 
1 V AR ( 9)*AT  ♦ ( BT  .CT  »vAP  < a>)«VAR(  a) 

IF (KVAH  ( I ) .EU, 10. AND. (ATh.nE.O. .0R.BTH.NE .0. .OP.CTh.nE.O. ) ) 
1 VAR(11)*ATh*(BTm»CTm»VAR(10))»VAR(10> 

20  CONTINUE 

IFIPATIO.NE.l.)  WRITE  (6. AO)  X. RATIO. II 
30  RETURN 

40  FORMAT  (ImO//  1 2h  CORRECTIONS  .2X.6FH.7, 

1 / 39H0PA T 10  APPLIED  TO  CORRECTION  VECTOR  IS  .F10.7. 

2 1 7h  FROM  COMPONENT  .13) 

ENO 


RATI0009 
RATI0010 
PAT  10011 
PAT  10  012 
RAT  10013 
PA  T I 0 0 1 a 
RATI001S 
PATIOOlfc 
PATI0017 
PATJOOlb 
RATI0019 
RAT  10020 
RAT  I 0 02 1 
PAT  I 0022 
PAT  I 0023 
PAT  I 0024 
PATI002S 
RAT  I 0026 
PAT  2 0027 


1 

1 

2 

3 


1 


SUBROUTINE  REACT 

COMMON  /FORCE/  Tl (7) ,XFPJ,T2|9) .YFRJ.T3I12) .ZFRJ. 

TA ( 1 1 ) .PMRJ.TS (12) ,PMPJ.T6< 12 1 . TMRJ 
COMMON"  /RJFTS/  NJETP.XSTK  (3)  .XU  ( 10)  .XD 10)  .XP  < 10  ) .TPOS  ( 1 0)  . 

TNEG(10).XAJETP(10).TAjETR(10).ZAjETP(10). 

AYBjTP (10) .APBjTRI 10) .JTRCONI 10) 
.XACT.TPCTA.TPCTn.NPCS.TJETP(lO) 

COMMON  /LJETS/  77(93) ,TLJET(6) 

COMMON  /manAPO/  TB(3) .TDELT 

common  /CONTR/  AO  ISP ( 3) .ARATE (3) .DELTA (A) , THR (2) .PPCT (3) . XSYS <20 ) 

COMMON  /STANPO/  J.k.LINK 

COMMON  /STPIAB/  AOUM (5A3)  .XRJT ( 1 AO ) 

DIMENSION  Y(10),Yl(10).Y2(10).NP(10).YC(10).YlC(10).YlL(10). 
y2L  HO)  .TjETC  (10) 

RAMP(X,Xl.X2)=(ArtS(*-xl)-A9S(x2-X)»x2-Xl)/(2.«(X2-Xl>) 


TRAMP (X.XO. XU. XR. TP, TN) =TN*( RAMP (x.XO-XO-XR. XO-XO) -1 . ) 


1 


♦TP»RAMP (X.X0.X0.X0»XD‘XR) 


10 

20 


XFPJsO. 
VFPJ=0. 
ZFPJ=0. 
RMPJzO. 
PMPJ=0 . 
YMPJrO. 


SUMT  * 0 . 

XPCT  * 1 . 

00  10  1*1.10 

TJETP(I)=0. 

DO  20  JJ-l.NRCS 

IF ( ( TLJE  T ( JJ>  .LT. 100. ) .AND. (NPCS.NE.O) ) 
SUMT = SUMT .TL JET ( JJ) /1000. 

TPCT  A 1 * 0 . 


XPCT*XPCT-1 ./NPCS 


PEACOOOi 
PEAC0002 
PE  AC  0 00  3 
RE  AC 0 0 0 A 
PEACOOOS 
PE  AC  0 0 OP 
PEAC0007 
PE  AC  0 0 0 9 
PEAC0009 
PEACOO 1 0 
PEAC001 1 
RE  ACO  o 1 2 
PEAC0O13 
PEAC  0 0 1 A 
PEAC001S 
PEAC001P 
PEAC0017 
PEACOO IB 
PEAC0019 
PEAC0020 
PE  ACO  0 2 1 
PE  AC  0 0 22 
PEAC0023 
REAC0024 
REAC0029 
PE  ACO  026 
PE AC0027 
PE  ACO  020 
PEAC0029 
PEAC0030 
PE  ACO  0 3 1 
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TPCTh1=0. 

IF(xPCT.GT..05>  TPCTa1=TPCTA/xpCT 
in* PCT.PT.  .Oil  TPCTM1  = TPCT8/  (XPCT»»2) 

30  DO  60  Nal.ujFTR 

IF  <XR  <M  .l>  .0.  > <P(N)=.001 

TjETC  <N> =toamp ( xSTK ( jTPCON(N)  ) ,X0 (N) »XO I N > ,XR (N) tTPOS IN) . TNEG(N) ) 
IF<LINK.Nf.4>  GOTO  SO 
T AU 1 = XB  JT { 14* (N-l ) » 12) 

T4U2=*HJT ( 1 4« ( n- 1 > • l 3 ) 

IF(TAU1.EO.0..AnD.Taii2.EQ.0.)  GOTO  50 
IF (TAU2.FO.0. > GOTO  *0 
• • S ECONO  ObOFo 

Y2(N)=(TjFTC(N)-Y(N)-<  T Au  1 ♦ T AU2  > • Y 1 <N>  ) / < TAUl*TAU2> 

CALL  R IE  MAN  <Y(N),YI<N).y2<NI.TDElT/4.,NP<N)»Y1C<N).YC<N).Y2L<N>> 
GO  TO  60 
••  FIRST  OOCfo 

40  YI (N) * ( T JFTC (N) -T (M) ) /TAUl 

CALL  STljFS  (Y (N> ,Y1 <N) »TUELT/4.«NP(N) . YC <N) »YlL IN) ) 

GO  TO  60 
••  ZFRO  OWUte 
50  YC (N) *TjETC IN) 

60TJETH(N)=vC(M) 

IF(LINS.NF.2>  GOTO  HO 
DO  70  1*1,10 
HP (I ) =0 
Y<IIfTjETP(I) 

TO  Y1  ( I ) =0. 

80  CONTINUE 

90  DO  100  N=1 .njETR 

IF t (TPCTAI»TPCTR1 ) .NE.O. ) TJETRIN)=TJETR(N)*(TPCTA1*TPCTH1*SU»4T) 

1 »SUPT/100. 

TjETM(N)=TjET«(N)»XPCT 

call  VRJO  ( TJFTP  (N)  , 0. ,0. .ATBJTP  <N>  .APBJTR  <N)  ,0.  »XF  ,YF  ,/F  , 1 ) 

CALL  XPPO ( XAjETe (N)  , YAJETR  t M > ,Z*OETR ( N » , XF • YF , ZF • PM • PM , YM ) 

XFRjrXF  »XFBJ 
YFRjrYF .VFP J 
ZFPJ*ZF»ZFOJ 
PMRJeBM.PuPJ 
P»RJ=PM«PMP J 
Y«BjtY«,YUOJ 
100  CONTINUE 
bf  turn 
ENO 


SUBBOUTINF  PE  AO  IN  (T) 

COMMON  /STPIAH/  T11184), 

? XELdA)  , XEP(7)  ,XFC(2H)  ,XFN(7)  ,XFS(35)  ,XGN(7)  , 

J XlT (21) • X WG I 2 1 ) IYHGI21) ,YFL (21) ,YFN (21 ) ,T2 (?7)  , 

k XC0N(63) ,XJET (14) ,T3(3) ,GUE SS . T4 ( 44 > ,TZiP0. 

5 T 5 < 3 ) ,XRJT (1401 ,YPJT ( 7) ,XLJT (H4) , YLUT (7) 

COMMON  /STPImA/  T6 (?4) .KCIT (20) , T7 (4) .TMAx.XCi T (20.6) , T8 (9) » 
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1 KREAD»TR»TSTAR( U) .ZMAX2.ZM AX3.T10 (31 .ZDELTl  . 

2 ZDEI.T2 

COMMON  /TOPLOT/  Til (7) .IC0MI20) • 1 PSN ,NP ART . T 1 2 ( 3 ) .NSCA(_E 

COMMON  /CONTO/  AO  ISP (3)  . ABATE ( 3) .DELTA (A) ,THR (2) .HPCT ( 3) . XSVS (28) 

COMMON  /ME  T 1 / XH ( 35 1 • X I.  ( 21 ) « YW ( 2 1 ) .XE( 1 * ) ♦ YE (21) * XF ( 7 ) »YF (21) . 

1 XJ(1*),XC(63),YR17>.XR<1*0).XT(2B).XD<7).XI(21), 

2 YL<7) .XL(b*l . XS(2o) ,TS(1*> ,XCM(20,6) 

OATA  IMET/0/ 

C • • NAMELIST  DICTIONARY 

NAMELIST  /CHANGE/  XH.XW.YIK.XE  . YE  . XF  « YF  , X J . X C « YR  « XR  . XT  . XO  . X I . 

1 YL.XL.XS.TS 

IE (NPART.F0.6)  GOTO  20 

IE  (nPART.nE.R.AND.NPART.NE.10)  GO  TO  10 
READ  (S, CHANGE) 

CALL  CONV ( IM£T ) 

GUESS  * ?. 

IE  (NPART.EO.V)  GUESS=0. 

RETURN 
10  CONTINUE 

READ  (S.70)  IPSN  .ICOM 
IF(IPSN.LT.O)  ImET=1 
IPSN=IAHS (IPSN) 

READ (S. 60)  XP.XW.YW.xE .YE.XF .YF .XJ.XC.XT  * XD . X I .TS 
READ (5.60)  YR 
NJl*=YR ( 1 ) *14. ..5 
REAO(S.60)  (XW ( I) . 1=1 »NJl*) 

PE AD ( S » 60 ) YL 

NJl*rYL ( 1 ) « 14...5 

READ  ( 5.60  ) (XLH)  .Ul.NJU) 

RE AO  < S . 60 ) XS 
T*0. 

CALL  CONV(IMET) 

IF  ( NP ART .EO.l.OR.NPART.EQ.7)  RETURN 

GOTO  AO 
20  NPART=2 

DO  30  1=1.1* 

30  TSTAP(I)=0. 

IF(NSCALE.EO.O)  GOTO  *0 
REA0<5. CHANGE) 

CALL  CONV(IMET) 

G(JESS  = 0. 

*0  CONTINUE 

RE AD  <S .60 ) TZERO.ZOfLtl .ZMAXl .Z0ELT2.ZMAX2.ZMAX3 
T ■ T7ER0 

IF  (ZOELT1.EO.O.)  ZDELT1  = 0.1 

IE (ZDELT2.EO.O. ) ZDEL T2=ZDELT 1 
TMAX  = ?MAXl 
DO  50  1=1,20 

READ  (5.60)  NEXT.  J ,<XCM  <I.K),K*l.6> 

ECITlI)  * J 
KREAD  * I 

IE (ImET.EO.O)  CALL  CONVl (J.XCIT.I) 

IE  INEXT.EQ.O)  RFTUHN 
50  CONTINUE 
RETURN 


READ0008 
RE  ADO  0 0 Y 
READOO  I 0 
RE  ADO  01 1 
RE  ADO  0 1 2 
RE  ADO  0 I J 
RE  ADO  0 I * 
READOO  15 
RE  A DO  0 1 6 
READOO 1 7 
READOO 1 6 
RE  ADO  0 l R 
REA00020 
RE ADO  0 2 1 
REA00022 
REA0002J 
READ002* 
REAOO  025 
REA0002O 
READ0027 
READ0025 
READ002R 
REA00030 
RE  ADC  03 1 
READOO  32 
READ0033 
RE  ADO  0 3* 
READ0035 
READ0036 
RE  ADO  0 3 7 
RE AOCO  3b 
READ003R 
READOOaO 
RE  ADO  0*.  1 
RE  ADO  0*.  2 
RE  ADO  0*  3 
READOO** 
RE  ADO  0**5 
READ0046 
READ00*7 
RE ADOO*2 
RE  ADO  0 * Y 
READOOSO 
RE  ADO  05 1 
RE  ADO  0 S2 
READ00S3 
RE  ADO  05* 
READ0055 
RE  ADO  056 
REAO0057 
READOObb 
RE  ADO  059 
READOObO 
RE AD0061 
RE  AO  0 0 62 
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60 

FORMAT (7F1O.0J 

REA00063 

70 

FORMAT (2X .I8.6A10/7A10/7A10) 

REA0006* 

eo 

FORMAT ( I 1 , I *,5x,GFl0.0) 

RE  ADO  066 

End 

REA00066 

SUBROUTINE  pieman  (Y.Yl .Y2.0T.NPASS.YlC, YC. Y2L) 

RIEM0001 

IF(NPASS) ?0. 10.20 

RIEM0002 

10 

Y 2L  = Y 2 

RIEM0003 

Y 1 C=  Y 1 

RIEMOOOA 

YC  * Y 

RIEM0005 

NPASS=l 

R IEM0  006 

GOTO  30 

RIEM0007 

20 

YC=YC<y1C«0T»(Y2»2.»y2l)/6.«0T*#2 

RIEMOOOfl 

Y1C=y1C»DT«(Y2»Y2L)/2. 

RIEM0009 

30 

YiYC*YlC«0T.nT»«2a(4.»Y2-Y2L)/6. 

RIEM0010 

Y1=V1C«DT« (3.»Y2-Y2L) /2. 

RIEM001 1 

Y2L=Y2 

R IEMOO 12 

RETURN 

RIEM0013 

ENO 

RIEM001* 

SUBROUTINE  BOO* 

common  /STRO/  X.Y.U.V.T.A (9.2) . I Y , I YS .G ( 6 , 2 ) .SLIM, 10, 10 
DIMENSION  »S(6).DF(6),CS(6) »UNP (ll).EVL(2,2) 

EQUIVALENCE  (OF  ( 1 ) HIM) , (OF ( 2 ) , VN ) . (DF(3).0UN>.  (DF(4>.DVN). 

1(5).  O'JNl),  (OF (6) .nwNl) . ( UNPlill.YS).  (UNP(l).Ul).  <UNP<2) 
2(UNP(3)  .03)  « IUNP  <*)  ,'J»>  . (UNP(5),  U5>.  <UNP(6),U6)  . (UNP(7) 
3((JNP(«)  .US1)  . IUNP  ( 9 ) « US2  ) • (UNP(IO).  US3  ) 

DATA  FA.FR  /1H  . 1 H®/ 

IFT*1 
IP  = 0 
IS*0 
I M*  0 
ITFiO 

00  10  1=1,  10 

lo  es (!) =0. 

DS*  .0005 
TST=0. 

UNPV=0 . 

SLIM2=SL1««SLI* 

X = 5.272 
Y = 0 . 

GO  TO  210 
ENTRY  POOP 

IF  (IFT-3  ) 20,  70.  220 
20  EVL(1«IFT)=X 
E V(.  (2.  IFT  ) alj 
GO  TO  (30,50) .IFT 


ROOAOOOl 
900A0002 
ROOA0003 
(OF  BOOAOOO* 
,1/2)  .POOAOOOB 
♦ (J  7 ) .BOOAOOC6 
ROOA00O7 
ROOAOOOB 
ROOA0009 
ROOAOO 1 0 
ROOAOOl 1 
ROOAOO  12 
ROOAOO 1 3 
ROOAOOl* 
ROOAOO  15 
ROOAOO  16 
ROOAOO 1 7 
ROOAOO10 
ROOAOO  1 9 
ROOA002U 
ROOAOO  2 1 
ROOAOO 22 
ROOA  0 023 
ROOA002* 
BOOAOOPS 
ROOA0026 
ROOA  0 02  7 
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30 

7 » 10 .53 

ROOA0028 

AO 

IFT* I F T ♦ 1 

ROOA0029 

GO  TO  210 

ROO A0  0 30 

50 

7*0. 

ROOA0031 

IF  1 EVL(2,1).NE.  0..0R.  EVH2.2).  NE.  0. 

) GO  TO  *0 

ROO AO  0 32 

WRITE  <h.*0> 

ROOA0033 

60 

format i*3M  function  value  is 

ZERO  FOR  ALL 

VALUES  OF  X) 

ROOA003* 

GO  TO  590 

ROO  AO  0 36 

70 

I FT** 

ROO  AO  0 36 

IF(U.EO.0..An0.V.EQ.0.)  IH=l 

R0OA0037 

BO 

ICT*0 

ROOA003B 

F M*F  A 

ROO  AO  0 39 

IF ( AoS(G(IR-l.l) )♦  A«S <G(IR»1 .2) )) 100.100 

,90 

ROOAOO *0 

90 

1F( (7-G (IP.1 . 1 ) ) **2. (Y-G( IR«1 

•2) ) ••2-.05*TST) 160,150,160 

ROOAO  0* 1 

100 

1F(IH) 110,110*390 

ROOAOO*2 

110 

IF ( ITF)  120.120,1*0 

ROOAOO*  3 

120 

OS*. 01 

ROOAOO** 

ITF*1 

ROOAO  0*5 

130 

X * -.127*396 

ROOAOO*6 

Y = X 

ROOAO  0*  7 

GO  TO  170 

ROO AO  0*8 

1*0 

IF  <G< IR. 1 ) .EO.O. . ANO.GI IR.2) . 

E0.0.)  GO  TO 

130 

ROOAOO*9 

150 

G ( IR» 1 » 1 ) =x 

ROOA0050 

G ( I»» 1 .2) *Y 

ROOAOOS1 

160 

7=  G ( IR. 1 . 1 ) *.999 

ROOAOOS2 

Y*AMAXl(  49S(0< IR*. 1,2)*. 999 

),  A8S(1.E-3*G(IR»1,1))) 

ROOAO  053 

170 

DO  1«0-  1 = 1,11 

ROOAOOS* 

leo 

UNR ( I ) =0. 

ROOA0065 

GO  TO  210 

ROOAOC56 

190 

OXNl=OX 

ROOA0057 

OYN 1 *OY 

ROOAOOS8 

DXSP=U7S 

ROOAOOS9 

O 

O 

<SJ 

Dx*0S»x 

ROOAO  080 

DY*0S*Y 

ROOAO  061 

0XS=DX*D7»nY*0Y 

ROOA0062 

7=X»D7 

ROOA0063 

Y*Y»DY 

ROOA006* 

210 

RETURN 

ROOA006S 

?20 

1CT*ICT*1 

ROOA0066 

IF  (U.  EO.  0..AN0.  V.  EO.  0.  ) 

GO  TO  500 

ROOAOObT 

1F(  IR) 270,270,230 

R00A006O 

?30 

CONTINUE 

RO0A0069 

DO  260  J*1,IS 

ROOA0070 

7 I *X-CS ( J ) 

ROOAO  0 71 

YI*Y 

ROOAOOT2 

TS*=V/U 

ROOA007  3 

IF(RS(J) ) 250 ,260 ,2*0 

ROOA007* 

?*o 

YI*  t Y«Y1 •»! 

ROOAOO  75 

7I*(7l-Y)»(Xl«Y) *BS ( J) 

ROOA0076 

260 

TS2*U/<7l*Xj«Yl*Yl) 

ROO  AO  0 7 7 

U*(XI*YI*TS*)°TS2 

ROOAO  0 76 

?60 

V* ( TS **  7 I-Yl ) *TS2 

ROOAO  0 79 

?70 

US*  ARS(U),  AfctS(V) 

ROOAOORO 

U7*ll7»Ub-l)S3 

ROOAO  06 1 

U6*U* 

ROOAO  0 82 

A-bl 


u 
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U5*U3 

U*»V-U2 

U3=U-Ul 

U2*V 

U1*U 

US3*US2 

US2=USI 

US1=US 

If ( ICT-2) 200, 190.280 
?80  *vc.  = 3./u7 

DO  290  1=1,6 
290  Of ( I ) =UNP ( I ) ®AVG 
If (DY ) 320 ,300. 320 
300  OPN=Ox/OXNI 

rs3=  {Di/n-dbn^duni ) «dpn 
TS*1 .‘OPN 
TS1=TS«DUN*TS3 
T55=-2.«UN»TS 
TS7  = TS1*TS1»2.,,TS3#TS5 
310  0XN1=0X 

0X=TS5*DX/(TSl*  SIGN!  SORT ( ABS I TS7 ) ) . T S 1 ) ) 


BOOA0083 
ROOAOOH* 
ROOAOOB5 
ROOAOOrtb 
ROOAOOH7 
BOOAOOAS 
BOOAOOH9 
BOOA0090 
BOOAOOB1 
B00A00O2 
BOOA009J 
BOOAOOB* 
R0OA0095 
ROOA0096 
ROOAOOB7 
ROOAOOBS 
ROOAOOQb 
ROOAOIOO 
ROOAO 101 
ROO AO  1 02 
ROOAO 103 


GO  TO  370 

320  DPN= (DX«Dxn1 »0Y*DYN1 ) /OXSP 
DIN  = (0Y«Dxn1-0x*0YN1 ) /OXSP 
TSI*0UN-0on»0UN1 «DIm®OVN1 
TS2=OVN-D!n»Oumi-OHn»OVN1 
TS3=0WN«TB1-DIn»TS2 
TS*=O^N*TS2*nlN«TSl 
TS* 1 . »OPN 

T51=TS*DUN-DVN*DIN*TS3 

TS2*TS»0VN.Dl)N®DIN»TS* 

TS5=2.* (VN*DIN-uN»TS) 

TS6=-2.»<vn»TS*UN*0TN) 

TS7* (TS1-TS2) « (TS1*TS2) ♦ 2 . « ( TS5® T S3-TS**TS6 I 
TS8*2,*(TS1*TS2*TS®»TS5.TS3«TS6) 

TS9=  APS ( TS  7 ) • SO«T ( 1 .♦ (TS8/TS7) »*2) 

TS3*  SOB T ( , 5 • ABS (TS9»TS7) ) 

TS*  = SIGN<  SORTf.S®  AHS < TS9-TS7) > , TS8) 

330  If (TSl®TS3.TS2»TSA  1360.350.350 
3*0  TS*=-TS® 

TS3=-TS3 
350  TS7*TS1*TS3 
TS8*  TS2*  T s* 

TS3*TS7««2»TSrt*®2 
TS1* (TS5®TS7»TS6»TSd)/TS3 
TS2=(TS6»TS7-TS5*TS«) /TS3 
DxNl  =OX 

OYNl=OY 

OX  = TSl#DXM-TS2»OYNl 

OY*TS2»OXN1.TS1»OYN1 

OXSP*OXS 

y»y»oy 

If  < ASS IYI  ,G7.  l.f-5  .AND.  ABSIY/X)  .GT.  5.E-*  ) GO  TO  360 
Y»0  . 

DY  * 0 . 
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! 


1 

360 

YS*Y*Y 

ROOA0138 

370 

x = x .ox 

ROOA0139 

TST=X«X*YS 

ROOAO 1*0 

IF(TST-1.F-1S>380»380.*10 

ROOAOl*! 

380 

FMaFH 

ROOAO 1*2 

390 

lHaO 

ROOAO 1*3 

*00 

X = Q . 

ROOAO 1** 

Y*0. 

ROOAO 1*5 

YSsO. 

ROOAO 1*6 

GO  70  500 

ROOAO 1*  7 

*10 

Ox5=OX*Ox»ny»L)Y 

ROOAOl *o 

ATaOXS/TST 

ROOAO 1*9 

IF  (AT  .LF.  l.E-16  1 GO  TO  510 

ROOAO 160 

IF  (ICT  -?1  ) *70. *50. *20 

ROOA0151 

*20 

IF(AT-ATX)  *50 , *60 i*60 

ROOAO 152 

*30 

AT*  AT  X 

ROOAO 163 

X*XX 

ROOAO 1 6* 

Y*YX 

ROOAO 155 

YSaYS* 

ROOAO 156 

1 

*40 

FMaFB 

ROOAO 157 

GO  TO  510 

ROO  A 0 1 58 

*50 

ATX=AT 

ROOAO 159 

XXaX 

ROOAO 160 

YXaY 

ROOAO 161 

YSX=YS 

ROOAO 162 

*60 

IF  (ICT  .UT.  25  | GO  TO  *70 

ROOAO 163 

IF  (AT  .NF.  ATX  ) GO  TO  *30 

ROOAO 1 6* 

• 

IF  (ICT.GF.  *0)  GO  TO  **0 

ROOAO 165 

*70 

IF  (TST-SLIm?) 2 10.2 10,550 

ROOAO 166 

*80 

Yi-Y 

ROOAO 167 

esdsi=YS 

ROOAO 166 

IS=IS-l 

ROOAO 1 fe9 

*90 

ICT  = 0 

ROOAO 170 

500 

AT  = 0. 

ROOAO 171 

510 

CONTINUE 

ROOAOl 72 

IFCIR.E0.6)  GO  TO  530 

ROOAO 173 

IRa I R ♦ 1 

ROOAO 17* 

i'i 

1 5 * I S 4 1 

ROOAO 175 

CS  < IS) =X 

ROOAO 176 

G(IR.1)=X 

ROOAO 1 77 

G ( I R , 2 ) a Y 

ROOAO 178 

IF  (Y.NE.O.  .AND. ICT.GT.O)  GO  TO 

*80 

ROOAO 17V 

00  520  1=1,2 

ROOAO 180 

► 

TS2=F VL ( 1 , I ) -x 

ROOAO 181 

IF(YS.GT.0.I  TS2=TS2*TS2«YS 

ROOAO 1 m2 

520 

E VL  < 2 , I ) =F VL ( 2.  I >/TS 2 

ROOAO 1R3 

r 

01= (FVL (2.1 ) *EVL (2*2) ) ••  5 

ROOAOl 8* 

t 

UNPT=D1*T 

ROOAOlMS 

IF  ( AhS(FVL(2.1)-EVL(2.2) ) . 

LE.  l.E-4* 

ABSIOl; 1 GO  TO  590 

ROOAOl «6 

L 

k 

IF  (IR.LT.  10  ) GO  TO  80 

ROOA0187 

530 

CONTINUE 

ROOAOl 88 

% 

MR  I TE  (6,5*0) 

ROOAO 1 69 

540 

FORMAT(*1m  SOLUTION  EXCEEDS  MAXIMUM  NUMBER 

OF  ROOTS) 

ROCAO 1 90 

»• 

GO  TO  570 

ROCAO 191 

550 

MR  I T E (6.5601  SLIM 

ROO  A 0 1 92 
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*»60  FOBmaT  (23h  NEXT  ROOT  GREATER  THAN .F 1 0 . I . «H  RADIANS) 

*70  WRITE  (6.S«0) 

*80  FOa“AT  (*.*m  INCOMPLETE  FUNCTION  RESIDUE  F(S)  REMAINING. I 
590  ID*  0 
IO*IP 
X*UNPT 
RETURN 
ENO 


ROOA0193 
ROOA0199 
ROOAOJ  95 
POOA0196 
ROOA01V7 
ROOAO 198 
ROOAO 199 
R00A020Q 


SUBROUTINE  5L ■ c 

(PD  , J . L . “ ) 

SLTE0001 

COMMON  /TBOMC/ 

UU(6).VV(6).TAU(<:2> .DAMP (22) .NUMRTS.GAINR. 

SLTE0002 

1 

INDEX .STGAIN (6) .TSTAR.COELTD.SLOT (3.9) 

SLTE0003 

DIMENSION  PO(b. 

12) .K (3.2) 

SLTE  0 0 09 

DATA  K /2.6.A.1 

.3.5/ 

SLTEOOOS 

DO  10  1*1.3 

SLTEOOOfe 

SLOT ( I . J) =PD (K  ( 

I .M) . L ) 

SLTE0007 

10  CONTINUE 

SLTEOOOS 

CALL  srt 

SLTE0009 

RETURN 

SLTE0010 

ENO 

SLTE0011 

SUBROUTINE  sltt 

(A.B.K) 

SLTT0001 

DIMENSION  A ( 3 . 9 

) . B ( 3 . 9 ) 

SLTT  0002 

L*K  ♦ 2 

SLTT  0003 

DO  10  1*1.3 

SLTT0009 

DO  10  J*K,l 

SLTT0005 

A(I«J)*B(I«J) 

SLTT0006 

B(I.J) =0. 

SLTT0007 

10  CONTINUE 

SLTTOOOH 

return 

SL  T TO  009 

END 

SLTT  0 0 1 0 

SOLVOOO 1 
SOL VO  0 0 2 
SOLV0OO3 
SOLVOOOR 
soLvonns 
SOL  V 0 0 06 
SOL  VO  0 0 7 
SOLV0008 
SOLV0009 
SOLVOOIO 
S0LV001  l 
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SUBROUTINE  SOLVE 

Common  /STB I AB/  Tl  (60) .X  (6) .T2(59) .KM1.T3I350) .PDPHI (6.7) 
COMMON  /TOPLOT/  T9(6)*EXIT 

C SOLUTION  OF  K M 1 LINEAR  EQUATIONS  IN  KM  1 VARIABLES 

Mil*  km I 
nmI«kmi-i 
DO  60M  z I,  KM 1 
K • M ♦ 1 

C CHECK  fob  ZERO  ON  DIAGONAL 

IF(ARS(POPHl  <m,m)  ) .f.E  . 1 .E-OS)  GO  TO  *0 
00  10  I *K  * KM  I 
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IP  ( AMS  (POpmI  ( I aM)  > .r-E.  1 .E-05)GO  TO  20 
10  CONT I NUfc 

C SINGULAR  MATRIX  NO  SOLUTION 

P X I T* 1 a 
RETURN 

20  DO  30  I I I 3 1 . n 1 
f-mPCPnl  ( I . I I f ) 

PQPMI  I I • I t I I >t»OPHl  («•  I II  I 
30  ROPnl  (“a I I J ) »h 
*0  PO  60  j * «,  Hi 

50  PDPhI I"i J) =PQR«I (“, J) /POPHI (M,M) 

IP («Ml .LT .* ) GO  TO  ?0 
00  60MP  = K a KM) 

DO  60  J = ».  N 1 

60  POPH I (MPa J) 3P0PMI (MP, J) -POP* I (MPa M) »PDPHl (MaJI 
70  ro  80“  = la  K m J 
80  X ( M ) iPljpMi  (“aNl ) 

DO  *>0*1  = la  N M> 

J » Nl  - K1 

K 3 j - 1 

DO  ROM  = 1 , K 

90  X (M) =X (M) -POPHI (MaJ) *X (J) 

RETURN 

End 


SOL  V 0 0 1 2 
SOLVOO 1 3 
SOL  VO  0 1 A 
SOLV001S 
SOLVOO 1 6 
SOLVOOl T 
SOL  V00 1 3 
SOLVOOl-* 
SOL  V 0 0 20 
SOL  VO  0 21 
SOL V0022 
SOL V 0 023 
SOLVOO?* 
SOL  V 0 025 
SOL  V 0 0 ?6 
SOL  VO  0 2 7 
SOL  VO  0 26 
SOLV0029 
SOL  V 0 0 30 
SOL  VO  0 3 1 
SOLV  0 0 32 
SOL V 0 0 33 
SOL  VO  0 3* 
SOLV0035 


SUBROUTINF  SRT 

COMMON  /S  T MP / UXaUY.(jaVaTaA(9,2>  a I 0 a 1 02 t G ( 6 a 2 ) aSLlMalOalL 
COMMON  /TRONIC/  UU<6)  aVV(6>  aTAU<=!2>  *0AMP(22)  .NRaGAINBa 
1 INDEXaSTGAlN(S)  a T ST AR a COL  a SLO T ( 3 a 9 ) 

DO  10  1=1,6 
DO  10  J=  1 , 2 
10  G< I aj)  = 0. 

10*6 
10*3 
102=9 
IL=  1 

SLIM=10000. 

T * 1 a 

CALL  POOA 

20  UR  = (UX-IJY)  • (UX‘UY> 

U I = 2a*UX»llY 
DO  30  L = 1 a 3 
Me  3»L-3 
DO  30  1=1,3 

N*M*  J 

K*3*I-2 

A ( N a 1 ) = SLOT (L aK»2) aSLOT (LaKal ) «UX  • SLOT  (La  K ) »UR 
30  A ( N a 2 ) * SLOT ( L a K ♦ 1 ) »UY  ‘SLOT  (LaK  )«UI 
AO  CALL  UET 
CALL  MOOR 
IP  (IL)20.S0a20 


SRTOOOOl 
SRT00002 
SRT  0 0 0 0 3 
SRTOonn* 
SRT00005 
SRTOOOOo 
SRT  0 0 0 0 7 
SRT00003 
SRT00009 
SRT  0 0 010 
SRT  000  1 1 
SRT00012 
SRT  0 0 01  3 
SRT0001* 
SRT00015 
SRT00016 
SRT00017 
SRTOOOlt) 
SRT  000 1 9 
SRT  0 0020 
SRT  0 0 0 2 l 
SRT  00022 
SRT  00023 
SRT0002- 
SRT0002S 
SRT  00026 
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50 

NP=ID 

SRT00027 

IF(NR.GT.A)  NR  = A 

SRT0002B 

COL=UX 

SRT00029 

00  60  J * 1 • 6 

SRT00030 

UU(J) =0. 

SRT00031 

60 

VV(J>=0. 

SRT00032 

00  70  J=1.I0 

SRT00033 

UU( J) =G ( J. 1 ) 

SRT0003A 

70 

VV(J) *01 J.2) 

SRT00035 

RE  TURN 

SRT00036 

END 

SRT00037 

SUBROUTINE  STAB  ST  ABO  0 0 1 

COMMON  /FOPCE/  xF.XFHWG.XFLWG.XFELE.XFFuS.XFRJET.XFLJET.XFRJ,  STA80002 
XFLJ.XFGUN.XFFIN.XFW.XADD.  STAB0003 

yF, yFFUS. YFRJET.YFLJET.YFRJ.YFLJ.YFGUN.YFFIN.YFW.  STAROOOA 
YAOO.  STA8000S 

ZF.7FRWG.ZFLWG.ZFELE.ZFFUS.ZFRJET.ZFLJET.ZFRj,  ST  AB0006 
ZFLj.ZFGUN.ZFw.ZAOO.  ST  ABO  0 0 T 

QL.LRWG.LLwG.LELE.LFUS.LRJET .LL JET.RMRJ.RMLJ.LGUN, ST  A BOO  OB 
LFIn.RGYRO.RmaOO,  STAB0009 

OM. mRWG.MLwG.MELE.MFUS.MRJET .MLJET.PMRJ.PMLJ.MGUN.STAROOIO 

mFIN.PGYRO.PMAOD.  STABOOll 

ON.  NR WG.NLWG.NFLE. NFUS.NRJET.nl JET .YMRJ, Y«L J.NGUN .STAPOO 12 

NFiN.YGYRO.YMAOO  STAB0013 

COMMON  /STP I AB/  E ( 7a)  .F (61  . X (6)  .DL.QM.DN.DX .DY.DZ . I X . I Y. I7«  STA8001A 

PO (6.7)  ,0T«.EP0,ERR(6) , KM  1 , WHO . R 1 2 . SPD ( b , 6 . 1)  , ST  ABO  0 l 5 

XEL ( 1“)  « X£R  (T) , XFC (28) . XFN ( 7 ) . XFS 1 35)  .XGN ( 7 ) . STAB0016 

X I T ( 2 1 ) ,XWG (2  It « YWG (21 ) , YEL (21 > . YFN (21 ) ,8LCG.  STAB001 7 

OAMP.DEPO ( U I .EPOS.EPDX ( 1 1 ) .MASS.WLCG. XCON (63) , STAROOld 
X JET ( 1 A ) , XMIN.AYEFP.CNPCO.GUESS.NPASS.PDPHl  (6.7).  STAR0019 
STACG.TZERO.OTRWSO.MXPASS.XLIMIT.XWJT ( 1 A 0 > .YRjT (7JSTAB0020 
.XLJT (BA) .YLJTC7)  STAR0021 

COMMON  /STRIMA/  AY.VH.AC-W.IXZ.XXU.YYO.ZZO.ALGF.APFP.AVFd.cGWL,  STAB0022 
COLL (61 ,CYCF (3) ,CYCL (3) ,OIST.KCIT(20) .PEOA (3),  STAB0023 
TIME.TMAX ,XCIT(20,6) , ALGEZ . ALGE 1 . ALGE2 » CGST A , STAB002A 

CPWK.DIXlZ.OlYlX,QIZIY.FrKTS,KREAD.PIU30 . ST  ABO  025 

TSTAR(IA) .ZMAX2.ZMAX3.ASECOL.CYPWIC.RUOINO.  STAB0026 

ZOEUT 1 . 2DELT2  STAB0027 

Q.AP.PEO.OWG.ALtL.TAXL.TAXR.XAWG.ZAWG.ALCYP.  STAB0028 

ALFIN, ALLwG.ALRMG, COELE, COFIN. COL WG.CORWG. CL tLE.  ST ABO  0 29 
CLFIN.CLLWG.CLRKG.CW ING.CYCWl .CYCW2.PANGE .wGCOL , STAB0030 
XAELE.XAFIN.XAFUS.XAJET.YAFIN.ZAELE.ZAFIN.ZAFlJS.  ST  ABO  63 1 
YAELE.YAFUS.YALMG.YAWWG.YAlJET. YARJET. ZAoET.  STAB0032 

ALECRL  .ALGFPO.hALFPI  .YGUSTw.ZFLwGl  .ZFRwr,  1 ST  ABO  0 33 

PI .ZZ.ALT.T.APOLi.AROO.AYOO.OTRR.GMAXV.WATFI . STAB003A 

RATF2.ST0P2.XG(|ST .GMAXVl .GMAXV2.GMAXV3.GUSTYP,  ST  ABO  0 35 
LNGTHl .PILGH1 .STAwTZ  STAB0036 

I . V.NwAG.TOELT .BGUSTE.HGUSTF .HGUSTW.VGUSTE.VGUSTW.5TAB0037 
YGUSTF.GFwO.GLAT.GVERT.VXB. VZB. APO.VYB.ARO.AYO.  STAB003B 
COLSTK.CYSTKl , CYSTK2 , PEDAL • AYE . APE . ARE  STAB0039 


COMMON  /manalz 


COMMON  /ROMAN/ 


COMMON  /manaRO/ 
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3 , tistk  (?.} , thlstk  (2> 

COMMON  /STANRO/  3«*.LlNK,QELE.VSN0,YFIN<2>.ZFEL(2>.CON01.SMlN(5, 
l P I L(iH2 » P»(j£L  1 

COMMON  /TOPLOT/  Ah(3)  ,AL <31 .EXIT. ICOm<20> . IPSn. 

] NPAPT .NVARA .NVAkB.NVARC.NSCALE 

1 .NVARS.NPRINT .NT ImE 

COMMON  /KVABTP/  *VAP(b).POl 

DIMENSION  t/APIt>)  ,£Pno  16)  ,A ( 74)  ,KS (b)  ,VAR1  (III  .UNIT  ( 11  ) .VARSV  <1 1 ) 
DIMENSION  P01<6.12),KSl(6).PDNll6,b).D(6).VARM(b).P0T(b.l2) 
EOUIVALfNCF  (VAR ( I) , V XH ) « (A(l) , XF ) . ( VAR  1 ( I ) .COLS  IK ) 

PEAL  IX.lv.  IZ.MASS 

DATA  F 1 ,F  Z.F3.F4.F5.F b.F 7. F8.F9/.224B09, .34  37  01  . .737562. 10.76391 . 
1 38. 31466.  .571015,  .737562, .050539,3.28084/ 

OATA  <5/13.23.35,48,61.74/ 

DATA  <51/1,14,24, 62.44.36/ 

L INK  = 3 
DO  10  N=l,ll 
VARSV (N) = VAR1 (N) 

10  CONTINUE 
3 = 2 
KMlxfe 

DO  20  LL  = 1 « 74 
20  E ILL ) =A (LL) 

00  30  LL=1.6 

30  PD1 (LL. 12) =-A <<S1 <LL) ) 

CALL  BJACOB 
kounts=o 

DCOL*0. 

COLS=COLSTK 

UNIT  ( 1 ) = 100.»RAmc,E/COLL  ( 1 ) 

UNIT(2)=100.»CYCF(3)/CYCF(1) 

UNIT ( 3) =100 ,»CYCL (3) /CYCL ( 1 ) 

UNIT (4) = lOO.oBEDA (3) /PEOA ( 1 ) 

00  40  LL  = «.U 
40  UN  I T ( LL ) =0T  P 

CALL  VR3D  (XX0.yyD.ZZD»AyE.APE»ARE.VX8»VYB.VZB«-1) 

00  50  3=1.4 
DO  50  1 = 1 ,b 

P01 < I * J>  = P01 < I . J) ‘UNIT ( J) 

PO ( I « J > =PD 1 ( I , J) 

50  CONTINUE 

DO  60  J=8 ,11 
DO  60  1=1.6 

PO 1(1,3) =PP 1 ( I • J I *UM 1 T ( J ) 

60  CONTINUE 

DO  90  3=1.11 
FM  = F2 

IF (3.GT.4.AND.3.LT.B)  FM=1. 

DO  70  1=1,6 

POT ( 1.3) =PD1 (1,3) 

70  CON  7 1 NUF 
00  PO  1=1,3 

POl ( I .3) »PD1 ( I »3) *Fm/F l 
60  POl ( I *3.31 =P01 ( I .3.3) •EM/F7 
90  CONTINUE 


STAB0O40 
STAiOOmI 
S TARO  04  2 
S T ArO  04  3 
ST  A80044 
STAM0045 
STAS0046 
STABU0.7 
STA-IU048 
STAB0049 
STA800SO 
STAA0051 
STAB0062 
STAB00S3 

ST  AB00S4 
5 TAa  0 08$ 
STAH0056 
ST  ABO  057 
STAB008B 
STAB0059 
STA8C060 
ST  ABO  Ob  1 
STAB0062 
STAB0063 
STAB0064 
STA80065 
STABOObb 
STAB 0067 
STAB006B 
STAB0069 
STAM0070 
STABOOT1 
STAB0072 
STAB0073 
ST  ABO  0 7 * 
STAB007S 
STAB0076 
STAB0077 
STAB0078 
ST  A BO  0 79 
STAB0080 
STA30081 
STAB0082 
STAB00S3 

ST AB00H4 
STAR0085 
STAB00B6 
STABOOBT 
STABOOBB 
STAB00B9 
ST  ABO  090 
STA80041 
S T ABO  0 92 
STAR0093 
ST  ABO  094 
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8RITE  (6090) 

STAR0095 

CALL  *«VP1  ( 1 « VAR.Kvl .PD.TAXL.TAXR) 

ST  ABO  0 9b 

DO  100  1=1.3 

STAR0097 

100 

0(1)  *“6SSM6.5v39 

ST  ABO  0 98 

0<4I»I Z/F3 

ST  ABO  099 

D l S ) * I v/F  3 

STAB0100 

D (6 ) * l X/F  3 

ST  ARO 101 

DO  120  0=1.11 

STABO 1 02 

DO  110  1=1.6 

ST  ABO  103 

no 

POl  ( I . J) =onl ( I . J) /O ( I ) 

ST  ABO  104 

1 20 

CONTINUE 

STAB0105 

*RITE (6.360) 

ST  ABO  106 

CALL  «»VP1  ( 1 .VAP.kmi .PD.TAXL.TAXR) 

STABO 107 

CALL  VP  3D  (0..0.,*,AyE.APE.ARE.XFw,YF*.ZFw,-1) 

STAB0108 

DO  130  1*1,6 

ST  ABO  109 

00  130  J*l,ll 

ST  ABO  11  0 

130 

P01 { I « J)  =pr>T ( 1 »J) 

STAS01  1 1 

EPOO ( 1 1 =x IT (*) 

STAB01 12 

EPOD  »2>  =X IT (4) 

STABO 1 1 3 

EPOD( 3) =x i T (6) 

ST  ABO  1 1 4 

EPOD (* ) =X I T (4) 

STAR01  15 

EP0D(5)=XIT(6) 

STAB01 lb 

EPOO ( 6) = X I T (6) 

STAB01 17 

DO  1 4 0 1 = 1,6 

STABOlla 

1*0 

KVAP(I)=r 

ST  ABO  1 19 

DO  210  J=l,6 

STAB0120 

VAR ( J) = VAP ( j) »EPOD ( J) 

ST  ABO  1 2 1 

IE(J.EU.l)  GO  TO  150 

STABO 1 22 

VAR(J-1)=VAP(J-1)-EP00(J-1) 

ST  ABO  1 2 3 

150 

CONTINUE 

ST  ABO 1 24 

call  anal 

STABO 1 25 

IE (EX  1 T.NF .0. ) RETUPN 

ST  ABO  1 26 

GO  TO  ( 160, 170. 160, 1 70. 160 . 170) ,J 

ST  ABO  1 27 

160 

VP  I TE (6.360) 

S TARO  1 28 

170 

T V=VAP ( 3 ) 

ST  ABO  1 29 

00  160  1=1.6 

ST  ABO  1 30 

FN*E  9 

ST  ABC  1 3 1 

IEfl. to. 3. OR. I. GT.4|  EM=1. 

ST  ABO  1 32 

ISO 

WARN ( I ) =V  AO ( I 1 /FM 

STABO 133 

V ARP ( J ) =VAPU(3) *OTRo 

ST  ARO 1 34 

Call  *«vp ( 1 . vapm.kmi ,P0, TAXL »T »XR) 

STAB013S 

VAR (3) *TV 

STAB01 3b 

CALL  *PF  M 

STAB0137 

SPO( J, 1 . 1 ) =XF-E ( 1) 

ST  ABO  1 38 

SPO ( J » 2. 1 1 =ZE-E (24) 

STAB01 39 

SPD ( J . 3 . 1 ) =QP-E (49) 

ST  ABO  140 

SPO ( J.4, 1 ) =YF-E (14) 

STAR0141 

SP0(J.5,l)=0L-E(36) 

STABO 142 

SPO ( J.b, l I *ON-E (62) 

ST  ABO  1 4 3 

DO  190  K*l,6 

ST  ABO  1 44 

SPO(J.K.I)=SPO(J,K,I|/EPDO(J) 

STABO 1 45 

190 

CONTINUE 

ST  ABO  146 

00  200  K * 1 , 74 

STAR0147 

A (K ) =A ( K ) -E ( x ) 

STAR0148 

?00 

CONTINUE 

ST  ABO  1 49 
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WRITF  (6.370) 

ST  ABO  150 

CALL  wRFM 

STAR0151 

L*l 

STARO 152 

210 

cont [Mue 

STARO 153 

VAR (6) = VAR (6) -EPOO (6) 

STARO 1 54 

DO  220  1=1,6 

STARO 155 

DO  220  J= 1.6 

STAPO 156 

F N = F 9 

STABO 157 

FO=F  1 

ST  ARO 1 56 

IF ( I .£0.3. OP. I .GT.4 ) FN  = 1. 

STARO 159 

IF(J.EQ.3.r>P.J.GT.4)FD  = F7 

ST  ABO  1 60 

220 

PDNl ( I . J) = SPO ( I ,J, 1 ) «FN/F0 

STARO 161 

WRITE (6.330) 

ST  ABO  1 62 

WRITE (6.350)  ( (PDNl <I,J).I*1.6>«J=1»6) 

STARO 163 

0(41=0(3) 

STABO 164 

0 ( 3) =0 (5) 

S TAR  0 1 65 

0(5) =0(6) 

STARO 1 ob 

D ( 6 ) * 1 2/F  3 

STABO 167 

DO  230  1=1 ,6 

STARO 168 

DO  230  0=1,6 

STAP016-. 

230 

POM  (I.J)sPDNl  ( I , J ) /D  ( J ) 

STAR0170 

WRITE (6.340) 

STAB0171 

wR I TE ( 6 » 350 ) <(PDN1(I,j).I  = 1,6).J=1.6) 

STAR0172 

IF  (V.LE.O.)  GO  TO  290 

STARO 1 73 

*AELW=*AELF-X AWG 

STAR0174 

IF (QwG.GE • .5*0)  GO  TO  240 

STARC 1 75 

QWG= . 5*Q 

STARO 1 76 

CwING=l . 

STARO 1 77 

SWING=1. 

STABO 176 

2*0 

CONTINUE 

STABO 179 

DO  260  J= 1 , 4 

STABOIAO 

DO  250  1=1,6 

STAR0181 

PO  ( I . J ) =PD ( I . J) /V 

STAR0162 

P01  ( I . J)  *PCil  ( I . J)  /V 

STAR01R3 

PD  1 (I .0*7) =PD 1 ( I • J»7  > /V 

ST  ARO l 84 

250 

CONTINUE 

STARO IBS 

260 

CONTINUE 

STAR01 6h 

00  26 1 0=1.11 

ST  ARO 1 86 

CALL  VR2D (P01 ( 1 . J) ,P01 ( 3. J) , AP.POl ( 1 , J) .P01 (3. J) ,-l ) 

ST  ARO 1 86 

261 

CALL  VK2D (P01 (6.J) ,P01 (4.J) .AP.POl (6.J) ,PD1 (4.J) ,-l) 

STARO 1 86 

CALL  LmODF  ( V«OWG«0. .w.CWING.XAELW) 

STA80167 

Call  lamoof  (v.owg.w. swing) 

ST  ARO 1 86 

L I NK  =4 

STABO 169 

DO  270  J=1  . 1 3 

ST  ARO 1 90 

TSTAB ( J) =T5T  AH ( J. 1 ) 

STAR01 91 

270 

CONTINUE 

ST  ARO 1 92 

T ST  Ah ( 1 4 ) =Q9Q9. 

STARO 193 

00  260  J=l.ll 

STARC19, 

V AR  1 ( J)  = V A o 5 V ( J) 

ST  AH  0 1 95 

260 

CONTINUE 

ST  ARO 1 96 

CALL  TImex  (TUSEO.OTIME.TLEFT) 

STAR0197 

WRITE  (6.320)  OTIME.TUSEO 

STARO 1 96 

return 

STAR0199 

290 

WR I TF  (6.300!  V 

ST  AR0200 

300 

FORMAT  (//10M  ••••  V = »F10.2.6lH  LINEARIZED.  NON-D I MENS  I ONAL 

ST  AST  AB020  1 
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1BILITY  ANALYSIS  SMPPEO  ••••)  STAB0202 

L INK**  STAB0203 

00  310  J= 1 t 1 3 STAR020* 

TSTAR ( J) =TSTA8 ( J. 1 ) STAR020S 

310  CONTINUE  ST  A90206 

TSTAR ( 1* I =P999.  STAB0207 

RETURN  STAR020B 

320  format  I Iho . 10X .F7.J.22H  MINUTES  USED  IN  STAb  .5X.F8.3.  STAR0209 

1 23m  minutes  total  RUN  TIME)  STAR0210 

330  FoomaT  ( Imi  ,S U ,2RMCTAbILI TY  DERIVATIVE  MATRICES///  STAR0211 

120x.83hThf  FOLLOWING  MATRIX  MAS  UNITS  OF  NEWTONS  OR  NEWTON. METRES  STAR0212 
2PER  MtTRE/FFC  OP  RAp/SEC//)  STA«021J 

3*0  FORMAT  ( //30X .6ShTme  FOLLOWING  MmTRIX  HAS  UNITS  OF  1/SEC.  ME TRF/SEST ABO  2 1 * 
1C  OR  1/METPF.SEC//)  STAB021S 

350  FORMAT  ( ImO .30X . Imu, 1 7x . Ihw « 1 7X » Ihq, 1 7X • IhV » 1 7X . Imp. 1 7X » IhR/IhO  • STAB0216 

1 *X . lfcMx-FORCE  f 6G 18.7/  STAR0217 

2 S* . 16M7-F0OCE  .6618.7/  STA80218 

3 SX.lbMPlTCH  mOMFnT  < 6G 1 8. 7/  STAR0219 

* /5X. 16MY-F0PCE  .6618.7/  STAP0220 

5 5X.16MO0LL  moment  .6618.7/  STAB0221 

6 SX . 1 6my Aw  MOMENT  .6G18.7/)  STA80222 

360  FoomaT  ( 1 m j ) STA80223 

370  FORMAT  (1m  .63X.SH0FLTA)  STA8022* 

380  FORMAT (///. 13X . 9 7 HT  mE  FOLLOWING  MATRIX  HAS  UNITS  OF  ME TRES/SEC*»2ST ABO  225 

1 OR  PAD/SFC»*2  PER  cm.  of  CONTROL  OR  RAD.  OF  ANGLE)  STAB0226 

390  FORMA T ( 1H1 . 15X . 9AHThE  FOLLOWING  MATRIX  MAS  UNITS  OF  NEWTONS  OR  NESTAB0227 
1WTON. METRES  PER  CM.  OF  CONTROL  OR  RAD.  OF  ANGLE)  STAB0226 

END  STAB022V 


SUBROUTINE  START  STAR0001 

COMMON  /STRIAB/  Tl (92) .IX.IY.I?.T2(*2) .0TR.T3.ERRI6) .TA.PH0.R12.  STAR0002 
1 T5 (36) .XEL ( 1*) .XER (7) ,XFC (28) .XFNI7) .XFS(35) .T6 (7)  .STAR00n3 

3 X IT (21 ) .XwG (21 ) .YwG (21 ) . YFL  (21 ) .YEN (21 ) ,8LCG.  STAR00O. 

* DXMP.DEPO ( 1 1 ) .EROS.EPDX ( 1 1 ) .MASS.WLCG.XC0N (63) . STAROQOS 

5 XJETd*) .XMIN. AYtFP.CNRCO.GuESS.NPASS.PDPHI (6.7) . STAR090& 

6 STACG.T2ER0.DTRRSQ.MXPASS.XLIMIT.XRJT (1*0) .YRjT (7)STAR0O07 

7 .XL JT (8*1 .YLJT (7) . XR AM . 2R AM , B AMM  STAR0008 

COMMON  /STPIMA/  T7(?),AGW«IXZ . XXD.YYO.Z20.ALGF ,T8(2) . CGWL . TR ( 1 58 ) .STAR0009 

1 ALGFZ.T10 (2) .CGSTA.Tl 1 (6) .PIU3O.TSTA0 ( U)  STAROOIO 

COMMON  /STAMAN/  T 12 (8)  .CG8L .T 13 ( 10 ) .TwOPI .Tl* ( 7 ) .POlDTR  STAR0011 

COMMON  /m»nal/  O.T IS (2) .Qw,G.T 16.TAXL.TAXR.XAWG.ZAWG.T17 ( 17) . STAR0012 

3 XAELF.XAFIN,XAFUS,XAjET.YAFIN,ZAELE.ZAFIN,7AFu5.  STAO0013 

* YAELE.YAFUS.YALWG.YARWG.YALJET.YARJET.ZAJET.  STAR001* 

5 ALE  CP  1 • ALGFPD . nALFP I . YGUST  W .ZFLWG1.ZFRWG1  STAR0015 

COMMON  /roman/  PI.77.ALT.T,T18(3) ,DTRR  STAR0016 

COMMON  /MaNARO/  T 1 V ( 1 9 ) « STAR0017 

2 COLSTK.CYSTKl .CYSTX2, PEDAL. AYE. APE. ARE  STAR0018 

3 .TLSTK (2) .THLSTK (2) , A T . 8 T . C T . A TH .8TH.C TH  STAR0019 

* .OFLAPl .FAIL (6)  STAR0020 

CO“MON  /STANRO/  J. W. LINK. QELE.VSNO.T20(*1 .CONDI  STAR0021 

COMMON  /STARAN/  C3.C*.Rw.CLP.CLR*OCD.OOL.OQN.CLBO.CNBO.ETAQ,njeT.  STAR0022 
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C 

C 


C 


C 

C 


COMMON  /ljets/ 


QFIn.CLPCL. YFS ( 1® I .CNmCL.CnPCL .CNRCD.CnRCL .C0l*S.  STAB0023 
D3ELF»FNS.,C.L.<tNG,-IPIST.Y4FRO(Jl.J).APBjFT.ARMjET,STAB002» 
AYdJFT«CNPCOl»CNPCf)2«COLjET«)XmjEL.D?FGEL.E7*OMX.  STA-OO/b 
PwGwk1.BC<,InG.S*INGH»ANOW.ANGL.OFLAP  STAROOps 

COMMON  /("VAPTR/  KVAJ(6)  ST  A RO  0 2 7 

COMMON  /RjETS/  NJETP.XSTK ( 3) ,x0<10> ,XO (101 .XR( 10) .TPOS < 10) . STAR002S 

TNEG  ( 10) .XAJETR(lO) .YAjETR(IO) *ZAuFTR<10) t STAR0O2B 

AYajTO(lO)  , APHjTR  < 1 0 I , JTRCON ( 1 0 I STAR0030 

.XACT.TPCTA.TPCTb.NRCS  STAR0031 

NJETL.XAjETL  ( S ) , Y A JE  TL  (b  ) . 7 A JF  TL  (S  ) • APS j TL  (6)  « STAROO  32 
AR8jTL(b).CONLJ(F.S)  .’NCOnL (6)  • ALT  < 2 1 . XlTm  < 2 ) STAR0033 

. AYB JTL ( b)  . AT  T <b  > • ANG  (bl  «PS  I ANG  (6)  . TMt  4NG  (6)  STAB0O3- 

, ANGA  (6)  . ANGH  ( b ) *ri_j£T  ( b ) ♦ ANGC ( b ) STAR003S 

.ThLJET  <t>)  .TL  (2.0)  .NLINK  STAROOJb 

COMMON  /COnTR/  DUM 1 (18)  « X SYS ( 2b ) • DTP  IM  STAR0O37 

COMMON  /MFTl/  XH  ( 35)  .XV  ( 21 ) . yw  ( 2 1 ) • XE  ( 1*  ) . YE  (21 ) . XF  ( 7 ) , yF  <21  ) . STAROOJb 

1 XJ  1 1 A)  ,XC  (b3>  «Y»  ( 7 I , XA  ( 140  I • AT  (2d)  . AG  ( 7)  ,x  I (21  ) , STAR003B 

2 YL<7) .XL(bA) ,xS(db) ,TS(1A)  STAwOOoO 

DIMENSION  mEA0(2,1**)  STAQOOAl 

REAL  IX«IY,IZ«IX2  STAR0042 

DATA  LR.LV/S.b/  STAR00.3 

DATA  HEAD/  ST AR0O44 

1 1H  .10H  FUSELAGE. 10H  RE.10HACTION  JET.lH  .10H  LIFT  JFT.  STAP00*5 

2 lH  « 1 OH  » I NG  * 1 h .10H  ELEVATOR. lH  . 1 OhF IN/WUOOER. 1h  . STAR0O46 

3 1 OH  JET . 3® 1 H ,10H  CONTROLS. 10H  FLIGHT, 10h  CONSTANTS,  STAR0047 

* 10H  ALLOM, 10HARLE  ERROR.lH  , 1 OH  ITERATION, 1h  .IOhSTAH  TIMES.  STAR004S 

5 2® lH  / - STAR004B 

GUESS3  0 • STAPOCEO 

NTP I M=  0 STAROOSl 

READ  IN  DATA  THOU  SUBROUTINE  OEAOIN.  STAR0052 

CALL  READIN  (T)  STAP00S3 

CALCULATE  PHYSICAL  CONSTANTS.  STAPOOG4 

DTR=.174S3?R?bE-0l  STAROOSS 

PMO=.00237E®XFC (28)  STAROOSb 

0®.S*RH0  STAO00S7 

PIU30=B.S4B2RbdM  STAROOSb 

DTRRSCI  = 32B?.h0b3S  STAROOSB 

DTRR=S7.2BS77BS  STAROObO 

P 12= 1 • / 1? . STAROOSl 

PI  = 3. 1® 1 SB2SS36  STAR00S2 

P01DTR=. 174S32R25E-03  STAR0063 

HALFPI=1 .S707Bb327  STABOOS* 

T HOP I=b.2d31bB307  STAROObS 

VRITE  OUT  HEADINGS.  STAROOSb 

CALL  "ROT  STAO0067 

VPITE  (LV.BO)  STAROOSb 

VRITE  (LM.100)  ( ME An ( I . 1 ) .1=1.2) .XB  STAROOSB 

CALCULATE  CONSTANTS  FOR  FUSELAGE  - SEE  INPUT  FORMAT  GUIDE  FOR  STAR0070 

DESCRIPTION  OF  CONSTANTS.  STAR00T1 

WeXFSH)  STAR0072 

STACG=AFS (S) ®R12  STAR0073 

8LCG=AFS(S)*P12  STAH0074 

VLCG=XFS f 7) ®Pl2  STAR007S 

CGS  T A *X F S ( S ) STAR007S 

CG»L*XFS(6)  STAR0077 
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C 

c 


c 

c 


c 

c 


c 


CC,*l  = XFS (71 

XAFuS=STACG-xFS  (2) »P12 
YAFIlS=xFS(3)*“l2-dLCG 
ZAFuS=.«LCr,-xFS  (4)  »R12 
Ix=xFS (6) 

IY=xFS  (9) 

I Z = xF  S ( 10) 

I X Z*  xFS ( 1 1 ) 

YFS( l ) = XFS ( lb) •OT» 

YFS  < 2) *xfs  i 23) »0TR 
YFS  ( 3)  * X F S ( 2M  *DTR 
XRAm=STaCn-xFS  ( 33)  * d 1 2 
ZRAm*XFS(34)<.rI2-wLCG 
HxmuFsi  3b)  / 32  • 1 7 

WRITE  (Lw.100)  (nEAni  1 .4) ,1  = 1,2) .XW  » YW 

CALCULATE  CONSTANTS  FOR  wING  - SEE  INPUT  FORMAT  GUIDE  FOR 
DESCRIPTION  OF  CONSTANTS. 

QWG=.S=0«xwG ( 1 ) 

X AwG  = S T ACG-xwG(2) *R12 
YARwG*XwG (3) =W12-6LCG 
7A»G*wLCG-xWG (4) «P12 
AGW=XWG (S)  »I)TR 
PwGwKl  =xwG(9)*DTR 
ETA0mX*2.42 
ClBO=XwG(1?) 

CLBCL»XWG (13) 

CL°3  X wG ( 1 4 ) 

Clp*x  *6 (IF) 

CN80=x«G (16) 

CNRCL*X»G( 17) 

CNOCL-X»G( 1H> 

CnRCD=XwG ( 1 9 ) *0  TP 

CNPCL=X*G ( 20 ) 

CNPCD=X*G (?1 ) 

DFLAP=XFC (19) 
dflapudflap 

WRITE  (LW .100)  (HEAD ( I ,S) , 1=1 ,2> «XE  » YE 

CALCULATE  CONSTANTS  FOR  ELEVATOR  - SEE  INPUT  FORMAT  GUIDE  FOR 
DESCRIPTION  OF  CONSTANTS. 

OELE  = Q*XEL ( 1 ) 

XAELE=STACG-xEL ( 2 ) *R 1 2 
YAELE=XEL (3)*Rl2-bLCG 
ZAELE  = WLCG-XEL (4) or  12 
ALGEZ=XEL (5) *DTp 

WRITE  (LW.100)  (HEAD ( I .6) . 1=1 .2) , XF  .YF 

CALCULATE  CONSTANTS  FOP  FIN/RUDDER  - SEE  INPUT  FORMAT  GUIDE  FOR 
DESCRIPTION  OF  CONSTANTS. 

OF IN=Q»XFN ( 1 ) 

XAFIN*STACG-XFN (2) «B12 
YAFIN=XFN(3)«R12-BLCG 
ZAFIN=WLCG-XFN(4)»R12 
ALGF  *XFn ( F ) *dtr 
FNS wC  = 1 .-XFN ( 7 ) 

WRITF  (LW.100)  (HEAD!!.!) .1=1,2) *XJ 

CALCULATE  CONSTANTS  FOR  JET  - SEE  INPUT  FORMAT  GUIDE  FOR 


ST AROO  78 
STAR0079 
STAROOMO 
STAROOAl 
STAR00A2 
STAR00R3 
STAR0064 
STAROORS 
ST  AR0066 
STAR00S7 
STAPOOfla 
STAR00B9 
STAR0090 
STAR0091 
STAR0092 
STAR0093 
STAR0094 
STAR009S 
ST  ARO  096 
STAR0097 
ST  ARO  0 9d 
STAR0099 
STAR0100 
STAR0101 
ST  ARO 1 02 
ST  ARO 103 
ST  ARO 104 
ST  ARO 1 OS 
ST  AR  0 1 06 
ST  ARO 10  7 
STAROlOo 
ST  ARO 1 09 
STARO 1 1 0 
ST  ARO 1 1 1 
STAR01 12 
STARO 123 
STAR01 14 
STAR01 IS 
ST  ARO 1 lo 
STAR01 17 
STARO! la 
STAR01 19 
STARO 120 
STARO 1 2 1 
ST  ARO 1 22 
ST  ARO 123 
STARO 1 24 
STARO 1 2S 
ST  ARO 1 26 
STAR0127 
STARO 1?« 
STARO 1 29 
ST  ARO 1 30 
STAR01 31 
STAR0232 
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C 


DESCP IPT I On  OF  CONSTANTS. 
NjFt=xjE  Til) 

XAjFT  = STACr--Xj£T(4)®ol2 
YARjE  T = X JFT (5) ®w 1 2-RLCG 
ZAJET=*LCG-X JtT (6) ®P12 
AYHjFT=XJFT  (*>  ®OT« 

APR Jf  T = x JE T < 9 ) "DTP 
ANGR=X JET (10) 

ANGL=XJET ( 1 1 ) 

NJETW=YWJT ( 1) ♦ .5 
NJlAsNjE  TP®  14 


STAPO 1 33 
STAWO 1 3a 
STAPO 1 35 
STAPO 1 36 
STAWO 1 37 
STAWO 1 33 
STAPO 13* 
STAPO 140 
STAMOIaI 
STAP01a2 
STAPO 1a3 


AACT=rWjT(?) 

TPCTA=YPjT (3) 

TPCTH=YRjt (A) 

NRCS=T«JT (S) *.l 

WRITE  (LA. 100)  (HEAn< 1,2) .1=1,2) .YR  .<XA  ( I I ) . II  = 1 . N J U ) 
CALCULATE  CONSTANTS  FUP  REACTION  JETS  - SEE  INPUT  FORMAT  GUIDE 
DESCRIPTION  of  constants. 

DO  10  1 = 1 .NJE  TW 

XAJETW ( I ) rST ACG-XPJT  1 14*1-13) *pl2 
VAJETP 1 1 ) =*PJT ( 1 A® 1-12) *R12-0LCO 
ZAJETP ( I ) =wLCG-xPJT ( 1 a®I-1 1 ) *R12 
AYBJTP ( I ) =XPJT ( 1 A» I - 1 0 ) *DTP 
AP0JTW ( I) =XPJT ( 1 4®I-  9)«DTR 
JTPCON ( I ) rxPJT ( 14*1-®) *.5 
X0<I)=XPJT(l4*I-7> 

YD  I I ) =XPJT ( 14®I-b> 

XR( I) = XPJT ( l4»I-5> 

IF (XP ( I ) .I  F .0.0)  XR ( I ) =0 • 0 1 
TPOS ( I ) =XPJT ( 1 A®  J -A) 

TNEG ( I ) =XPJT ( lA*I-3) 

10  CONTINUE 

NJETL=TL JT ( 1 ) ♦ .5 
NJl4=NJRTl®l4 

WRITE  ( L w ♦ 10  0)  (HEAD ( 1 ,3) » 1 = 1 ,2) »YL 
CALCULATE  CONSTANTS  FOR  LIFT  JETS  - 
DESCRIPTION  OF  CONSTANTS 
DO  20  1=1 .NJFTL 

XAJETL ( I ) = S T ACG-XLJT ( 1A*I-1 3) ®Pl2 
YAJETL ( I ) =»LJT ( 1A*I-12) ®P12-BLC0 
ZAJETL ( I ) =®LCG-XL JT ( 1 a® 1-1 1 ) *P12 
APR  JTL  ( I > = XLJT  ( 1 A®  I - 1 0 ) ®C'TP 
ARRJTL ( I ) =XL JT ( 1 A® I -9) »DTR 
AYRJTL (I)=xLJT(1A*I-h)®DTP 
ATT ( I ) =XL JT ( 1 4 » I — 7 ) 

ANG  < I ) = XL JT ( 1 4* I -6 ) 

PSIANGI I ) =XLJT ( 1A*I-5)*DTP 
THE ANG (I)=XLJT(1a*I-a)«OTP 
ANG A ( I ) =X  L JT ! 1a®I»3)/100. 

ANGR (I)=XlJT(1a®i-2)/100. 

ANGC  (D*XlJT(1A*I-1)/100. 

20  CONTINUE 

DO  30  1=1.6 
FAIL ( I ) = 1 . 

30  NCONL ( I ) =XCON  ( 12*  I ) ..5 


, (XL  (II). 1 1 = 1 «NJ14) 

SEE  INPUT  FORMAT  GUIDE  FOP 


STARO 1 a a 
STAPO 1*5 
STAWO 1 46 
STAPO  1®7 
STAPO 143 
FORSTaWOIay 
STAPO 150 
STAPO 151 
ST  APO 1 52 
ST  AP  0 1 S3 
STAPO 15a 
ST  APO 1 55 
ST  APO 1 56 
STAP0157 
STAPO 158 
STAPO 159 
ST  APO 1 60 
STAP01M 
STAP0162 
STAPO 163 
STAPO 164 
ST  AP  0 1 65 
ST  APO 166 
STAPO 167 
STAP016M 
STAPOInP 
STAPO 170 
ST  APO 1 7 1 
STAPO 1 72 
STAW0173 
STAPO 1 7a 
ST ARO 1 7s 
ST  APO 1 76 
STAP01 77 
STAPO 173 
STAPO 1 79 
STAP01R0 
STAP0181 
STAW01R2 
STAW01 A3 
ST  AWO 1 AA 
ST  AMO  1 A5 
STAWO 1 86 
ST  APO 1 87 
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00  *0  1=1,? 

00  *0  JM.S 

CONLJ ( 1 , J) = XC0N (5*1 »j-3) 

*0  CONTINUE 

A T*XCON ( 1 9) 

BT=XC0N(20) 

CT»XC0N(?1 ) 

ATH«xCOf  (??) 

BTH»xC0N ( ?3 ) 

CTw=xCOn ( ?u > 

NlINK*aCOn ( 35) ♦ .5 
DO  50  1 = 1, ? 

DO  50  11=1,6 

Tl ( I « I I ) = xCOn (29»6*I»II) 

50  CONTINUE 

WRITE  (L w , 100)  (HEAO ( I ,9) * 1 = 1 ,2) • (XC 
WRITE  (L»,110)  (XC  (11,1=50,63) 

CALL  COM  ( XCON, COL  JET  ) 

WRITE  (Lw.100)  (m£AO(I, 101 ,1*1,2) , XT 
XxD«xFC  ( 1 > »1 .6h78 
Y YD*X  FC (?) =1 ,6878 
ZZ0=-XFC(3) 

ZZ*-XFC (A) 

IF ( GUESS . FO , 2 • ) 60  TO  60 
AY’E*XFC(5)  »0T» 

ARE*XFC (7) »OTR 
ARE*XFC(6)*0TR 
COLSTK=XFc (8) 

CVSTKl=XFc (9) 

CYSTK2=XFr ( 10) 

PE0AL  = XFC(1  1) 

TLSTK l 1 ) =XFC (15) 

TLSTK (2) =»FC ( 16) 

IF(AT.NE.O..O».BT.NE.O..OR.CT.nE.O.) 
1 TLSTK(l) 

ThlSTK ( 1 ) =XFC (17) 

THLSTK (2) a x FC (18) 

IF(ATH.NE.O..O«.RTm.nE.O..OB.CTH.NE. 
1 THLSTK ( 1 ) ) *ThLSTK ( 1 ) 

0(jE5S  = 2» 

60  CONTINUE 

DO  70  K = 1 , 6 
70  KVAB (K) =XIT ( 1 A»k) 
taxr*coljft»colstk 
IF  (NJET.lF.O)  TAXRsO. 
TAXL=COLJFT=COLSTK 
IF  (NJtT.LE.l)  TAXLaO. 

80  CONTINUE 

VSND*1./XFC (27) 

WRITE  (Lx  ,100)  (HEAO( 1,1 1 ) , 1 = 1 ,2) ,XG 
C CALCULATE  ALLOWABLE  frrors. 

ERR ( 1 ) = XE P ( 1 ) 

ERR  (?) =XE o 1 2 ) 

ERR (3) =XER ( 3) 

ERR (A) =XEP (*) 


ST  ARO 1 88 
ST  ABO  1 89 
ST  AR  0190 
STAR0191 
ST  ABO  1 92 
STAR0193 
ST  ABO  1 9A 
STAB01RS 
STAB01V6 
STAB0197 
ST  ABO  1 98 
ST  ARO 1 99 
STAB0200 
STAR0201 
ST  ARO  202 

<I)*I=1*A9>  STAR0203 

ST  AB02  0 A 
ST  ARO  205 
STAR0206 
STAR0207 
STAR0208 
STAB0209 
STAR0210 
STARO  2 1 1 
STAR0212 
STAR021 3 
STAR021A 
ST  ARO  2 15 
ST  ARO  2 16 
STAR0217 
ST  AR021 8 
STAR0219 
ST  AR0220 

TLSTK(2)=AT* (BT*CT*TLSTK (1 ) )»STAB0221 

STAB0222 

STAR0223 

STAP022A 

.)  THLSTK(2)=ATH,(BTH*CTh*  STARO  225 

ST  AR0226 
ST  AR0227 
ST  ABO  228 
STAB0229 
ST  ABO  230 
STAR0231 
5TAB0232 
STAH0233 
STAB023A 
STAR0235 
STAR0236 
STAB0237 
ST  ABO  238 
STAR0239 
STAR02a0 
ST  AB02A  1 
STAR02A2 
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EBB  (B)  = XF.P  (4) 

STAB0243 

EBB <6 ) =XE  B ( b) 

S T ABO  2bb 

WBITF  (LB.  100)  (HEA()(  I . 1 2 ) . 1*1  .<11  • X I 

STAB024S 

BXPaSS=X IT ( 1 ) 

STAB024O 

C0nP1=X IT (S) 

STAB0247 

XLIHlT  = <'.*nTH»XIT(l2) 

STAW0246 

XMINrXI T (13) *UTB 

STAB024B 

CAMPrX I T ( I 4 ) 

STAB0250 

BBITE  (Lb, 100)  (HEAP ( I , 13) , 1=1 ,2) ,TS 

STAR02S1 

BBITE <Lb. 120)  XS 

STAR02S2 

c 

CALCULATE  CONSTANTS  FOB  SUBBOuT 1n£  clco. 

STAB02S3 

CALL  TF  I X IVBli.  TAEBO) 

ST  AB02S4 

CALL  mnE m 

S T ABO  25  b 

return 

STAB02SO 

90 

FORMAT  (1h0//1h  .61  X , 1 OhlNPuT  DATA/) 

STAB02S7 

lOO 

FOBBAT  (lLO.SbX.2A10.6H  GROUP/llH  .3X.7G16.7)) 

STAB02S8 

HO 

FOOBAT  ( Iho.Shx  « IBhinTEBFEBENCF  GROUP/Uh  .3X.7G18.7) ) 

STAR02SB 

120 

FOBBAT  ( lBO .S7x .20HCONTBOL  SYSTEM  GROUP/ < 4X.7Gl6.7l) 

STAB0260 

end 

ST  ABO  26 1 

SUBROUTINE  STLJES  (X.XI.DTX.NPaSSX.XC.XIL) 

STL JOOO 1 

IF(NPASSX)20.10,20 

STLJ0002 

10 

X lL  = X 1 

STL J0003 

XC  = X ' 

STLJ000* 

NPASSX=1 

STL J000S 

GOTO  30 

STL J0006 

20 

XC=XC*OTX<MXl»XJL>/?. 

STLJ0007 

30 

XsXC»OTx® (3.«Xl-XlL)/2. 

STL J0006 

X II  r X 1 

STL J000N 

RETURN 

STLJ0010 

ENO 

STLJ001 1 

SUBROUTINE  TIMEX  ( TUSED * DT I ME . TLEF T ) 

T I BE  0 0 0 1 

REAL  NEb.NOB 

T IM£0002 

DATA  NOB/n./ 

T I BE  0 0 0 3 

NE«=SECONO (T) 

TIME0004 

TUSEO  = NE  B/6  0 . 

T I BE  o 0 Ob 

DTImEMNEv-NOb)/60. 

TIME0006 

NOW-NE  B 

TIME0007 

tlfft=io. -tused 

TIBE0008 

return 

TIMEOOOB 

ENO 

timeooio 

SUBROUTINE  TINIT 


TINI0001 
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COMMON  /STOIM*/ 

1 

COMMON  /STAMAN/ 

1 

ARHG  = 0 • 

ASE  COL*  0 . 

AVQMX  *0  • 

HGUST  *0  . 

ISTOP  = 0 


AY.VN.T1 (2) . XX0»YYD.ZZD.T2.APFP.AyFP,T3( lb7> < 
FTKTS«T4(2),TSTAB114).TS(2>  . ASECOL 
Tb(S).AFF>G.ASEP.f7(4),rtbSO.AYOMX.Tb(J)  ,MGUST. 
KTCTP.  T9  (2)  « VGuST, IST0P.T10 (2)  . YGUST 


VGUST*0. 

A SE  P * 0 . 

KTCTP  * 0 

FTKTS*.59?S 

RSSO*. lhlMblbI8E-02 

YGUST=0. 

VMwSQRT (XXO«»2*YYO»*2) 

AYFPwO. 

APFPiO . 

IFIVM.NE.O.t  AYFP«ATAN2(YY O.XXO) 

IF (VM.NE .0. .OR.ZZO.NE.O. I APFP«ATAN2 (-Z20. VH> 


DO  10  1*2.14 

IF(TSTAaCi)  .EO.O.)  TST  AE<  ( I ) *9999  . 
10  CONTINUE 
RETUPN 
END 


TINI0002 
TIM0O03 
TIN! 0004 
TINIOOOS 
TINIOOOb 
TINI0007 
TINIOOOb 
TINinoov 
TINI0010 
TINI0011 
TINI0012 
TINI0013 
TINI0014 
TINI001S 
TINIOOlb 
TINI0017 
TINIOOlb 
TINI0019 
TINI0020 
TINI0021 
TINI0022 
TINI0023 
TINI0024 
T IN  1 002b 
TINI 0026 


subroutine  trim 
common  /force/ 
COMMON  /STPIAd/ 


COMMON  /STPIMA/ 


COMMON  /manal/ 
Common  /manapo/ 


COMMON  /STANRO/ 

l 

COMMON  /TOPLOT/ 

1 

COMMON  /fory/ 
COMMON  /LJFTS/ 

0 1 MENS  1 ON  VAR  ( 1 

EQUIVALENCE  ( v a 
LOGICAL  AyFFP 
PEAL  MASS. I XZ 
DATA  M£A&?/ 

1 1M  .IOH  TMPOT 

2 10M  PFOAL. 


Tl (20) .YFF I N.T2(b) . ZFELE 

T3(rtO).X(b>.OL,OM.DN.DX,DY.DZ.T4(3).PD(b.7). 
Tb(14b).XIT(21>.T6(9G) .EPOX (II) ,MASS»T7(79> .AyEFP 
Tb ( 3 ) .POPHI ( b . 7 ) . T 1 3 » T ZERO 

AY.VH. AGW. IXZ.XXO.YYO.ZZO.ALGF.APFP.AYFP.CGML, 
COLL (b) . CYCF ( 3 ) « C yCL ( 3 ) .0 1 ST . K C I T ( 20 ) . PED A ( 3 ) . 

T IMf  « T9 ( lbl ) * ZDELT 1 

TlO(S) .TAXL.TAXH.TI1 (17) .RANGE 

I , V,Nw AG .TOELT.MGuS TE.HGUSTF, HGUST w.VGUSTE. VGUST w 
YGUSTF.GFwD.GLAT.GVEPT.VXrt.VZB.APO.VYB.ARO. A YO. 
C0LSTK.CYSTKl.CYSTK2.PEOAL.AYE.APE.ARE 

J. k.L INK.QELE.VSN0.YFIN(2) .ZFEL (2) .CONDI .SWING. 

P ILGh2 . PWGEL 1 

AM (3) .AL(3) .EXIT . ICOM ( 20 ) « I PSN . 

NPART  .NVARA’.NVARB.NVARC.NSCALE 
Y (4, ISO) 

Tl 2 ( 3 1 1 . CONL J (2*5) 

1 ) .MFA02 (2.1 1 ) 

R ( 1 ) . COLSTK ) 


TLE.Im  . 1 OMLONG  STICK, IM  .10M  LAT  STICK. 1h 
10M  POS  EXCEE.IOMOS  STOPS  (.10M  PERCENT  F. 


TRIM0001 
TRIM0002 
TRIM0003 
•TRIM0004 
TRIM0005 
TRIMOOOb 
TRIM0007 
TRIMOOOb 
TR I MOO  09 
.TRIM0010 
TRIM001 1 
TRIM0012 
TRIM0013 
TR I MO  0 1 4 
TRIMOOlb 
TRIMOOlb 
TRIM0017 
TRIMOOlb 
TRIM0019 
TRIM0020 
TRIM0021 
TRIM0022 
TRIM0023 
TRIM0024 
TRIM002S 
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3 10HULL  Throw  . 1 OhCO-PUTEO!  .?»1M  i 1 OhL  ThROT  1 » 1 M . 

* 1 OmL  r T l ,lM  ANGLE  ltlH  » 9*L  ANGLE  2/ 

DATA  POlUTR/. WA5J2RE-03/ 

AYEF  P = . TRUE . 

IF(AR5<Ayp-ayFP).(_E..01 . ANO. Y (1.85). EQ.O.)  A YEFP= . F AL SE . 
LPASS  = S 

IF(X I r (3) .EO.O. ) LPASS=1 
F POX ( 1 ) = 1 ./PANGE 
EPOX (2)  = l ./CyCF (3) 

EPO* ( 3) =1 ./CYCL (3) 

EPOX (A) =1 ,/P EUA (3) 

00  10  1=8. 11 
10  fPD*  ( 1) =1  . 

IF  (CONLJI l»l ) .NF.O.)  £PDX (8) =1 ./ (CONLJ ( 1 .1 ) *P0 10TR) 

IF  (CONLJI?. D .NE.O.)  EPDX (S) =!•/ (COMLJ (2. 1 ) “P010TRI 
IF  (COnlj ( 1 .?)  .NE.O  .)  Fppx ( 10 ) = 1 ./ (CONLJI 1 .2) *P010TR> 

IF  (CONLJI?. ?) .NE.O. ) EPDX(11)=1. /(CONLJI?. 2>«P010TP> 
EPDx  IS  IN  UNITS  OF  PERCENT  PEW  RADIAN 

0X  = 0 . 

DY  = 0 . 

D2*0. 

DL*0  . 

OMsO. 

dn*o  • 

DO  20  1=5.7 
EPO* (11=1. 

20  CONTINUE 

call  damper 

DO  30  K = 1 • 6 
X (K) =0. 

DO  30  L=  1 * 7 
PO ( K » L 1 = 0 . 

POP  w I (* ,L>  =0. 

30  CONTINUE 
LINK=2 

CALL  ITRIm(LPASS) 

DO  AO  1=1,11 

IF ( I ,&T. A. amo. I ,lT.«)  GO  TO  AO 

IF ( VAR  ( I ) .GE .0.0 . AND. VAP ( I ) .LE . 100 . ) GO  TO  AO 

• RITE  (8.50)  (HEAD2  ( J. I ) . J= 1 .2) . (HEAD2 ( J.5) . J= 1 .2)  . 

1 VAR(I) . (HEA02(J.6> .J=l.2) . <HEA02(J,7) ,J=1.2) 

AO  CONTINUE 
DL  = 0 . 

Dw  = 0 . 

ON=  0 . 

DX*0  • 

Dy*0  . 

02«0. 

Y ( 1 . 1 ) = VXR 

Y ( 1 . 2) = V Y P 

Y ( 1 , 3 ) = V 7 B 
Yll.AI =AYO 
Y ( 1 .8)  =APO 
Y( 1 ,8) =APO 
Y ( l , 1 0 ) =AYF 


TR I MO 0 ?6 
TRIMOO?7 
TRI«on?3 
T R I -0  0 ?W 

tr: -0030 

TRl-on 31 
TRI-0032 
TRI-0033 
TRI-003A 
TRI-003S 
TR I M0  038 
TRIM0037 
TRI-0038 
TRIM003W 
TRIMOOaO 
TRI-OO*! 
TRImOOa? 
TRIM00a3 
TR IMOO aa 
TRImOOaS 
TRIM00A6 
TRIM0OA7 
TRIM00A8 
TRIMOOaW 
TRIM0050 
TRI-OOSl 
TR I m 0 052 
TRIM0053 
TRI«005a 
TRIM008S 
TRI M0OS6 
TR 1-0057 
TR 1 MO  056 
TR I MO  059 
TRI«0080 
TRIM0081 
TR I mO  082 
TR 1-0063 
TRI-OOGA 
TRI-0065 
TRIM0066 
TRI-0067 
TR I m 0 0 66 
TRI-0069 
TRI MO  0 7 0 
TRIM0071 
TRI-0072 
TRIM0073 
TRI-OOTa 
TR ImOO  75 
TRIM0076 
TRIM0077 
TRIM0076 
TR JM0079 
TRIM0060 
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V(l.ll)«APF 
til.  12) =ABF 
0 1 ST  * TZEBO’V 
»»jO. 

IF ( vxB.NE .0 .0 .OR  .VYB.NE.O.)  AY*ATAN2(-VYB« VXBI 
IF <npaRt.mE.2.OR.Exit.nE.0. ) RETURN 
INO=0  _ 

TOFLT  IZr'ELT  1 
T I-F«TZEBO-.<JB«Tr)ELT 

CALL  I V A ft  (EXIT, LINK, TAXL.TAXR.PILGH2J 
CALL  C0NTBL(2) 

ZFEL(1>=ZFFLF 
VFINf  i ) =YFF  IN 
REWIND  3 
RETURN 

50  FORMAT  ( 1m0.4A10.F7. 1 .4A10) 

ENO 


TRIM0081 
TRIM0082 
TRIM0083 
TRIM0084 
TRIN0085 
TRlMOOBb 
TRIM0087 
TR I mo  08b 
TR1M0089 
TRIMOOBO 
TRIM00B1 
TRIMOOB2 
TRIMOOB3 
TRIM009* 
TRJMOOBS 
TRIM00B6 
TRIM0097 


SUBROUTINE  turn  (XFC.V.ARE) 

TURNOOO 1 

COMMON  /Fnoy/  Y ( A • 1 50) 

TURN0002 

DIMENSION  * FC ( 28 1 

TURN0003 

DATA  G/32.17/.DTB/.1745329E-01/ 

TURN0004 

Y (2,bb> =1 . 

TURN0005 

IF (xFC(21 ) .NF.O. ) GO  TO  60 

TURN0006 

DO  10  1*12.14 

TURN0007 

IF(XFCtl)  .EQ.O.)  GO  TO  10 

TURN0008 

0=1-11 

TURN0009 

GO  TO  (20. 30. AO) ,J 

TURN0010 

10 

CONTINUE 

TURN001 1 

RETURN 

TURN0012 

20 

CONTINUE 

TURNO  0 1 3 

GLEVEL=XFC (12) 

TURNO  014 

IF  (GLEVEL.LE. 1 . ) GO  TO  60 

TURNOO 1 5 

ARE  * ACOSU./GLEvEL) 

TURNO  016 

ARED= ARE/PTB 

TURNO  017 

TRAD=V*»2/ (G»TAn ( ARE ) ) 

TURNOO 1 8 

GO  TO  50 

TURNO  019 

30 

CONTINUE 

TURN0020 

AREO*XFC (13) 

TURNO  0? 1 

ARE*ARED»DTR 

TURNO  0 22 

GLEVFL=1./C0S<ARF> 

TURN0023 

TRAD* V»»2/(G« tan (ARE) ) 

TURNO  024 

GO  TO  50 

TURNO  0 25 

*0 

CONTINUE 

TURNO  026 

TRAD*  XFC  (14) 

TURN0027 

ARE*ATAN2 ( V»*2.G*TRA0) 

TURNO  028 

ared*abe/otr 

TURNO  02 V 

GL.EWEL  *1. /COS  (ARE) 

TURN0030 

50 

CONTINUE 

TURN0031 

Y ( 1 .85) =V/TBAO 

TURN0032 

PS  1 0*  7 ( 1 .85) /DTR 

TURNO  0 33 
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TuBNT*3bO./A«S  (P$  IDl 
TRAD=A6S  (TOAD) 

wBITF  ( b « 1 0 0 ) GLEVEl.aRED.TBAO.PSID.TUBNT 
BETUPN 
bO  CONTINUE 

Y (2.86)  = XFC  C 1 if ) 

IF (XFC(12)-1.)  70*80.90 
70  CONTINUE 

write  tb.no)  xFcdai 

80  CONTINUE 
RETURN 

90  WRITE  1 b»  ] ?0  ) X F C ( 1 2 i 
RETURN 

100  F09MATI//1SW  G-LEVEL  3 G 1 2 . 5 . 1 0 X . 1 AH  HANK  ANGLE  = '312.5//, 

1 IS*  TURN  RADIUS  = G12.3ilOX.lAH  YA«  BATE  = 312.5//, 

2 A 1 H TIME  UFFO  TO  COMPLETE  3b0  OEGBtE  TUBn  = G12.5) 

1 1 0 FORMAT  (//2*-H  BUSh-OVFB  a I Th  G-LtVEL  = G12.S) 

120  FOBMATI//2AH  BULL-UP  WITH  G-LEVEL  = G12.5I 
ENO 


TUHN003* 
TUBNO  0 35 
TUBN0036 
TUBNOO  37 
TUBNOO  3b 
TUBNOO  3B 
TURNOOaO 
TUPnOOaI 
TUBN00a2 
T UBNO  0 A 3 
TUBNOO*.  *» 
TURNOOaS 
TUBNO  PAb 
TUBNO  Oa  7 
TuPNO  0..6 
TiiBnOOav 
TURN0050 
TUBNO  051 
TUBNO  052 


SUBROUTINE  va»i  varioooi 

COMMON  /FORCE/  XF.xFRwG.XFLWG.XFELE.XFFUS.XFPJET.XFLJET.xFRJ,  VARI0002 

1 . XFLj.XFGUN.XFFIN.xFW.XAOD.  VABI0003 

2 YF.YFFUS.YFRJET.YFLJET.YFBJ.yFlJ.yFGUN.YFFIN.yFW.  V ABIPOOA 

0 YAOO,  V AB 10  0 08 

3 ZF,7FRwG.ZFLWG,2FfLF»ZFFUS.2FBJ£T.2FLU£T.2FPj,  VAPI0006 

* ZFLJ.ZFGUN.ZFw.ZAOO.  VABI  0007 

5 QL.LPWG.LLwG.LFLE .LFUS.LB jet .LLJET.RMBJ.BMlJ.LGUN. VABI 0008 

A l£ IN.RGYRO.WmaOU.  vabioooy 

6 OM.MRWG,“LwG,MELE ,MFuS ,MBJET .ML JET .PMRJ.PML J,MGUN, VAB 10010 

6 MFlN.BGYPO.PMAOO.  VABI0011 

7 QN.NPWG.NLWG.NFLE .NFUS.NB JET . NL JET. YMBJ, Y«L J.NGUN . V AR I 0 0 1 2 

C NFlN.YGYBO.YMAOO  VARJ0P1J 

COMMON  /STB  I A6/  E 17A)  ,F  lb)  ,X (6)  .UL.DM.ON.OX ,OY,OZ.IX . I Y, IZ.  VARIOOl* 

1 PO (b,7)  .DTB.EPO.tBB (b)  .KMl ,RH'  ,h  I2.SP0 (6.b. 1 ) . VAR'9013 

2 XEL(IA)  ,XtB(7)  , XFC ( 26  I «XFn(7)  • XF  S ( 35 ) .XGN17I  . vAPICOlb 

3 XIT121) .XWG121) .YW3121) .YEL12D .YFN121) ,HLCG.  VARI0017 

a DAMP.OEPO l 1 1 ) .EBDS.EPOX  ( 1 1 ) .MASS.WLCG, XCON (bJ) , VARI0018 

5 XJET (1A) .XMIn.AYEFP.CNPCO, GUESS. NP ASS. POPHI (b,7) . VARI0019 

6 STACG.TZf  bo.DTBBSQ.MXPASS.XLImIT .XBJT ( IaO)  . YBjT i 7) VAB;  0 0 20 

7 .XLJT(bA) ,YLJT (7)  VABI0021 

COMMON  /STPIMA/  A Y, vm. AGW . I XZ . XXO , YYO . ZZO . ALGF . APFF  AYFP.CGwL.  VARI0022 

1 COLL (8> .CYCF (3) .CYCL (3) .OIST.KCIT (20) ,PEOA (3) , VAPI0023 

2 TIME.  T«AX  ,XC  I T (20.6)  .ALGE7  . AL(-E  1 . ALGE2.CGSTA,  VARI002*. 

3 CPWIC.OIXI7.DIY1X.OIZIY.FTKTS.KBEAO.PIU30.  VABJ0025 

A TSTAB ( 1A ) .ZMAX2.ZMAX3.ASEC0L . C YP w I C . PUD  I NO . VARIOOZb 

5 Z0ELT1 .70ELT2  VAPI002? 

COMMON  /STAMAN/  X X . YY  . A Y 1 ,B  I Y , APb<-,  . APBG,  ASEP  • AYHG.CGHL  .DPI  X .Dp  T Z . VAPIOO’H 

1 P650.AYOMX.OElT2.QPIXZ.HoelT«HGuST.KTCTP,PmaSF,  VARI002N 

2 TWOPI . VGUST » I STOP . XAGUN. YAGUN. YGUST .ZAGUN.0ELT2B , VABI  00  30 

3 POIqTB.POElT 1 ,P0ElT2  VAWI0031 
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COHmQN  /ManalZ 


COMMON  /Poman/ 


COMMON  / F OPV / 
COMMON  /R jf  TS/ 


q.Ap,PFD,Q..G.alEL.TAxL.TAXR.X»xG.ZAMG.ALCYP. 

ALF IN. ALL«G.ALP»l’,CotLt «COF In.COLxO.COMMG.CLElE  » 
CLF  IN.CLLMG.CLP>>G.Ct.lNG.CYCRl  .CYCR2.HANGE.  WGCOL* 

XAElF«XAFIN«XAFuS,XAjET.YAFIN.ZAElF.  .7AFJN.ZAFUS, 
YAELf.yAFUS.YAL»G.YAkkG«YA|_JET,YAPjFT,7AJFT. 
ALECPl . ALGFPO.HAUFPI .YGUSTu.ZFLWGI . ZFR*G1 
Pt.77«ALT.T.APOu«APOO.AYUt),OrRP.&M4XV.8ATEl. 
RATF2.5TOP2.XGU5T  .GMAXVl  . GMA  X V2  > GmAx  V3  .GUST  YP  , 
LNGTm1.PILGmI.STmPT2.DUA1.00az.UDAJ 
Common  /MANAPJ/  I .V.NwAf-.TUELT.MUIISTF.hGUSTF.HGuSTw.VGUSTE.VGilSTN 

1 YGUSTF .GFmO.GlA  r ♦ gvert .vxs.vzh, APO. vyh. aro. ayo. 

2 COLS T*. CVS TK l .C Y S T<2 . PEDAL . A YE . APE . APE 

3 .TLSTk (2) .THLSTK  12) .AT  « BT  «CT .ATm.HTm.CTH 

* .OFLAPl .FAIL (G) 

COMMON  /TOPLOT/  AM ( 3)  . AL ( 3)  .EX r T.  ICOM(20) . IPSN, 

1 NPART.NVAPA.NVAMB.NVAWC.NSCALE 

1 ,nvaps.npp;nt.nTIme 

Y ( * . ISO ) • 

NJETP .xSTK(3).xO<10),XD(10).XP(10) .TP0S ( 10)  . 

TNEG (10) .X A JETS (lO).YAJETR(lO) .ZAJETR ( 10) . 

2 AYBjTR ( 10) , APBjTR ( 10) . JTRCON ( 10 ) 

PEAL  LGUN.mGUN.NGUN 

DIMENSION  TAX  l 2 ) 

EQUIVALENCE  ( TAX ( 1 ) ,TAXL ) 

XOEL I m ( x 1 ,x2.x3)=amax1  (XI .aminI (X2.x3) ) 

10  DO  230  l=1,KR£AD 
J*<CIT(L) 

IFfJ.EU.31 ) GO  TO  210 
IFfJ.GT.23)  GO  TO  230 
IF ( J.LT .9. OP. J.GT. 1 2 ) GO  TO  20 
CALL  GUST  (J) 

GO  TO  230 
20  CONTINuF. 

IFITIME.lt. XCIT(L.l) ) GO  TO  230 
JFfj.GT.l?)  GO  TO  110 
PATfrXCIT ( L • 2 ) 

IFfTIME.GT.XCIT (L. 3) ) PATE=0. 

IF (TIME.OF.XCIT (L.A) )RATE  =*XCIT(L,5> 

IF (TIME.GT .XC1 T (L .6) ) RATE*0. 

DA  = PAT£®Mr)FLT 
IF (RATE.EO.O.)  GO  To  230 
GO  TO  (30. *0. SO, 60. 70. 90. SO. 100)  .J 
30  CONTINUF 

COLSTK=xDflIM(0.,100.,COLSTK.DA) 

•GCOl=AGw 
GO  TO  230 
*0  CONTINUE 

CYSTf  1 *X()Fl  I m ( 0.  « 1 Of).  .CYSTK  1 »OA) 

CYCP1 xCYSTr 1 ®CYCF (3) .CYCF (2) 

ALGE3*XC0N(26)/(2.»0TRR) 

XSTk ( 1 ) =CYCP 1«0T«« 

CO  TO  230 
SO  CONTINUF 

CYSTK2-XCFL IM ( 0. « l 0 u • .CYSTK2.DA) 

CyCP2  = CYSTk2»CYCL  <3) »CYCL (21 
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VAPI0032 
VARI003J 
VAP I 00 J, 
VAR  1 0 0 36 
VAR IOOJb 
VARI0037 
VARIQ03B 
VAR  10  0 39 

V AR I 0 04  0 
, VAR  I 0 0 A 1 

VARI00a2 

VARI0043 

V AR I 0 0 A 4 
VARIOOaS 
VAR  I 0 0 A6 
VAR  10047 
VARIOOAS 
VARI004P 
VARI 0050 
VARIOOSl 
VAR  I 0 052 
VARI00S3 
VARI OOSA 
VARI005S 
VARI00S6 
VAR  I 0 OS  7 
VARI00S8 
VAR  I 0059 
VAR  10  060 

V AR 10  061 
VARI 0062 
VAPI0063 

V AR  I 0 0 64 
VARI006S 
VARI00G6 
VARI00G7 
VAPI006S 
VARIOOGR 
VAR  10  0 70 
VAR  10  0 71 
VARI0072 
VAR  10073 
VARI 0074 
VARI007S 

V AR 10  0 76 
VARI0077 
VARI 0078 
VARI 007P 
VARI0080 
VARIOOSl 
VARI0082 
VARI0083 
VAR  I OOSA 
VARI00B5 
VARI 0086 
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XSTK  (2)  = CYCP?'*OTRR 
60  TO  236 
60  CONTINUE 

PFnAL=XUELtM(0..100.,PEDAL»DA) 

PfO=PtOAL»oFnA(3)*PFnA(irl 

XST* ( 3) =PFO*P£OA ( 1 1 / (P£0A<3) *100.  ) 

60  TO  230 
70  CONTINUE 

TLSTk(1)=xPEH*(O..IOO..TLSTK(1I«OA> 

IF(AT  .NE.0..OP.HT  .NE.O..OP.CT  .NE.O.)  TLSTM2)=AT  MHT  ♦ 

1 CT  • TtSTK (1)1*  TLSTK { 1 ) 

60  TO  230 
80  CONTINUE 

TlSTk (o  =xOFlIm(0.*100. .TLSTK ( 2 ) * DA  > 

60  TO  230 
90  COnT I NUF 

ThlSTK (I)exDELIM(O., 1 0 0. .THLSTK  ( 1 ) *DA) 

IF(ATM.NE.O..OP.3Th.nE.O..OR.CTH.nE.Q.)  TmlSTK (2l = A TH  ♦ ( 0T  h. 

I CTH*THLSTK ( 1 ) > *THLSTK ( 1 ) 

60  TO  230 
100  CONTINuF 

THLSTK (2) =XOELIM ( 0. , 100. .THLSTK ( 2 1 ♦ DA ) 

60  TO  230 
110  CONTINUE 
K = J-12 

60  TO  (120. 130. 150. 330.170. 180. 190. 200. 230.230.230)  .K 
120  FPATE=0. 

IF ( (TrHE.6T.XCI T (L. 1 ) ) .AND. (TIME.LT.XCIT (L.3) 1 I FRATE=XCIT(L.?) 

I F ( <TI«E .6T .XCIT (L.*) ) .AND. (TImE.LT .XCIT (L.6) ) ) FPATE=XCIT(L.S) 
DFLAP 1 =DFl  up  1 ♦FRaTE*mDELT 
60T0  230 

130  IF (TIME.LT. XCIT  ( L » 1 > ) GO  TO  230 
DA=XCIT ( L . 3 ) *hDFLT 
N=XCIT (L.6) *.01 
IF (XCIT (L .2) .20.0. ) 60  TO  160 
TAX (N) =TAx (N) * D A 

IF (SIGN ( 1 . .DA) .E0.SI6NI 1. . (XCIT (L.5) -TAX (N) ) ) ) 60  TO  230 
TAX (N) =XCIT (L.5) 

1*0  XCIT (L. 1 ) =Q999. 

60  TO  230 

150  IF (TIME.LT. XCIT  (L*  1 ) ) GOTO  230 
0A=l./(XCIT(L«2)-XClTIL*ln 
N=XCIT (L.3) *.01 
FAIL(N)=FaIL(N)-DA*hoELT 
IF(TIME.GT.XCIT(L»2| ) FAIL(N)=0. 

60T02 30 

160  IF ( T I ME ,GF .XCIT (L«*) ) GO  TO  1*0 
TAX ( N ) = T A x (N) »DA 
60  TO  230 

170  IF ( xc IT (L . 3) .LT . TIMf)  GOTO  230 
T 2*XC I T (L . * ) /hDFLT 
IF (T2.EO.O.  ) T2= 1 . 

DA* ( X C I T l L . 2 ) *Ayn-OnA3) /T2 

DOA3*OUA3»OA 

IF ( (PEDAL*DA) ,LT .0. ) D0A3=0DA3-P£0AL-0A 


V ARI0087 
VAPIOOH-t 
VAPI00F9 
VAPI0O90 
VAPI00P1 
VAP 10  0*2 
VAPI00P3 
VAPIOO** 
VAPIOOPN 
VAPI 00*6 
VAPI0097 
VAPI00P6 
VAR  I 0 0** 
VAPTO 100 
VARI0101 
VAP 10162 
VAPI0103 
VARI010* 
VAP  10  106 

VAP I 0 1 Oo 
VAP 10107 
VAP 10106 
VAPI0109 
VAPI0110 
VAPI011 1 

V AP  I 0 1 12 
VAPIO] ! 3 

v a p i o n « 
VARIOUS 

V A P I 0 1 16 

V AP I 0 1 1 7 
VAPI01  18 
VAP I 0 11  * 
VAPI 0120 
VAPI0121 
VARI0122 
VAPIO 123 
VAR  I 0 1 2* 
V AP I 0 1 25 

V A P I 0 1 26 
VAPI0127 

V AP 10123 
VAR  I 0 1 29 
VARI0130 
VAPIO 1 31 
VAR  10132 
VAPI013J 
VAPI013* 
VARI0136 
VAP 1013b 
VARI01 37 
VAPIO 136 
VAR  10 1 39 
VAP I 0 1 *V 
VAPIOlAl 
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l d 0 


190 


?00 


?10 


2?  0 


230 


I F ( (PEUAL.OA) .GT.100. ) DDA3=DOA3-PEDAL-0A* 1 00 . 

V AR 10  142 

GOTO  60 

VARIO 143 

IF (XCIT (L.»t .LT.TIMF)  GOTO  230 

VARI0144 

T2sxC  I T (L  ,S)  /m[>FLT 

VARIOUS 

IFIT2.EO.O.)  T2  = l. 

VARI0U6 

DA* ( - < xCI  T (L.3UAM0.XCIT  (L.2UARE 1 -00A2I /T2 

VAR  I 0 1 * T 

ODA?sUUAE  « OA 

VARIOUS 

1 F ( <CYST«2.DA1.LT.0.)  0DA2=D0A2-CySTk2-0A 

VAR  I 0 UN 

IF((CYSTr?.DA).GT.100.)  DDA2*0DA2-CYSTK2-DA. 1 00 . 

VARIOISO 

GOTO  SO 

VARIO 1S1 

IF (XCIT (L.S1 .LT.TIMF)  GOTO  230 

VARI01S2 

T2=XCI T CL .6) /HOELT 

VAPI01S3 

IF (T2.EO.0.)  T2=l . 

VAR  10 IS4 

OA= (XC I T <L . 3) “APD^XCIT  (L .2) • < APE-XCIT (L.41 1 -0DA1) /T2 

VAPIOISS 

DOA 1 zOUA 1 *OA 

VAR  I 0 l S6 

IF((CYSTK1*OA).LT.0.1  0DAL=DDA1-CYSTk1-DA 

VAR  101 S7 

IFt(CYSTKl*OA).GT. 100.1  DOAl  = ODAUCYSTKl-DA»  100. 

VAR  10  1 56 

GO  TO  AO 

VAR  101 59 

IF (TIME. GT. XCIT  (L.Al 1 GO  TO  230 

VAR  1 0160 

OT1zxCIT<l.2)°<T-XCIT(L.1)> 

VAR  10  161 

0T2zXCIT(L.2)*<T.T0ELT-XCIT(L,li) 

VARI0162 

PATEzXCIT (L.3) “ROELT1/XCIT (L.2) * (SINI0T21-SIN (0T1) 1 

VARIO 163 

OAzPA TEORUFLT 

VAR  I 01 64 

KzxCIT  IL«S) ».l 

VARIO 16S 

GO  TO  (30, 40. SO, 60. 70,60. 90.100) »K 

VARIO 166 

CONTINUE 

VAR  10167 

00  220  K = 1 ,5  • 2 

VARIO I6d 

IF ( TI«E.GF.XCIT  (L.K) ) NPRINTzxCIT  <L.K«1) 

VARI016R 

CONTINUE 

VAP101 70 

IF (NPRINT.lE.O)  nprint=1 

VAR  10  171 

GO  TO  230 

VARIOl 72 

CONTINUE 

VARI0173 

RETURN 

VAR  10174 

ENO 

VAR  101 75 

SUBROUTINE  VR2D  (X  . y ,A,X2,Y2.N1) 

C TzO  DIMENSIONAL  VECTOR  TRANSFORMATION 

C Nl=l  IS  FOR  USUAL 

X lzX 

yi*y 

C N 1 =- 1 IS  for  INVERSE  . 

S»SIN (A) *N 1 
CzCOS ( A l 
X2zx 1»C-Y US 
Y2*X 1 *S<  YI »C 
RETURN 
ENO 


VR200  0 0 1 
VR2D0002 
VR2D0003 
VR2D0004 
VR200  0 04 
VR2D0  0 OR 
VR20000S 
VR2D00D6 
VR200  0 0 T 
VR2D0008 
VR200009 
VR200010 
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SUHRC'UTJNF  VR3U  < X 1 , y I . Z 1 » A 1 . A2«A3, x2. Y2. Z2 »Nl ) 

VR300001 

D I ME  NS  I ON  AIR) 

VR3D0002 

TmmE  £ DIMENSIONAL  VECTOR  TRANSFORMATION 

VR3 00003 

N 1 * 1 FOR  USUAL 

VR3I)000» 

Ni  = -l  FOR  I NVEHSF 

VR  30  0 0 0*3 

Call  “atmix  i a i , aa  . a j . a.m  ) 

VR300006 

X2=XI®A(1|.Y1»A<?)*71«A<3> 

VR30C007 

Y2*Xl*A(H)»Yl»A(S)»/l‘,Aie>) 

VR300  00  0 

Za=Xl»A(7).Yl«A(S)*Zl«A(R) 

VR3DOOOY 

RETURN 

VR3D0010 

Enj 

VR3D001 i 

Subroutine  wrfm 

WRFmOOO i 

Common 

/force/  A 1 I 74) 

*RFmOOO<? 

dimension  ai7<») 

WPFmOOOj 

00  10 

1=1,36 

wpfmooo** 

10  A ( I ) =Al  ( I ) •<. 

2 

WRF  M0  0 Ob 

DO  20 

I=3h.74 

WRFM00A6 

20  A ( I 1 =Al( I ) •! 

• 3bS8 

WRFmoOO  7 

4P I TF 

(6,30) 

A 

wQF*OOCB 

return 

WPFM0009 

30  format 

( ImO  • 

54X.24MF0RCE  4n0  moment 

SUMMARY.// 

wRFmOO] 0 

l 

1m  , 

16X ,4lHTOTAL  . P.wING 

I.MING 

HSTAtf 

F US • 4X , 

*QFmOO 1 i 

2 

60hR*F I x£0  jKTS°L  R/jETS 

L/JETS 

INLET 

VSTAB, 

WRFmQ  f)  1 1 

3 

1 X » 1 7h  w/GYOO 

P.I.E.*// 

WRFM0013 

4 

1?M 

X-FORCF 

• 1 3F  9 . 1 / 

WRFmO  0 1 ** 

s 

12M 

y-fopce 

,F9. 1 .27X.9F9 

.1/ 

WRFmO  0 i S 

6 

12H 

Z-FORCE 

. 10F9. 1 .9X.2F9. 1/ 

WRFMOO 

7 

12M 

ROLL 

, 13F9. 1 / 

^RFmOO  1 7 

e 

12H 

PITCH 

. 13F9. 1/ 

WRFmQC  1 8 

9 

12M 

YAw 

, 1 3F9 . 1 / ) 

wPF  mOO l * 

Eno 

»RF MO  0 20 

SIJ6R0UT  INK  WH0T1 

WROTOOO 1 

COMMON 

/TOPLOT/  AH(3).AL(3).EXIT.ICOM(20).IPSN. 

WPG  T 0 0 02 

1 

NPART.NVARA.NVAMS.NVAMC.NSCAlE 

WPCTOO  03 

1 

.nvars.nprint.nt Ime 

WPOTOOOh 

CALL  date  (NDATE) 

WROTOOOS 

RETURN 

WPOT  0 0 Oo 

Entry 

4 RCT 

WPOT0007 

vrite 

(6.10)  NDATE .NPART . IPSN. ICOM 

WPOT  OOOH 

RETURN 

WPOTOOO'V 

10  FOR“AT 

WPOTOO 1 0 

1 

(1m1.4Hx.40hv/ST0L  aircraft  dynamic  analysis  program/ 

wPOTOO  1 1 

2 

55X.2HHNAVAL  air  DEVELOPMENT  CENTER/ 

WPOTGO  12 

3 

SflX . IHHCOMPrLEO  JULY  1976/ 

WPQTC02  3 

4 

57X . IOhCOMPuTED  .AlO// 

WROTGO  l- 

o o o n n 
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4 1h0,18X.I4.4x,I9,5x.6A10/1h  .32X.7A10./1H  .32X.7A10) 

END 


WBOTOOIS 

WBCT0016 


SUBROUTINE  WRVP  (NrvAW.KMl.PD.TAXL.TAXR)  WRVPOOOl 

THE  action  taken  IN  T«I5  subroutine  DEPENDS  ENTIRELY  upon  n:  WRVP0002 

IF  N=I  - WRITE  VARIABLES  INDICATED  IN  TRIM  AND  STAR  ANO  ROTOR  wRVPOOOJ 

Data  only  wrvpooo*. 

IF  N = ? - WRITE  partial  DERIVATIVES  only  WRVPOOOS 

IF  N=3  - 00  both  WRVPOOOb 

COMMON  /M4NAR0/  I . V .NwAG.  TOELT.hGuSTE . HGUSTF . HGUST w • VGUSTE  » V&US T W , WR V P 0 0 0 7 

1 YGUSTF.GFwU.GLAT.GVERT.VXh.VZ6.APD.VY8.AR0.AYD.  WWVP0006 

2 C0LSTK.CYSTk1,CYSTK2.PEDAl»AYE*APE.ARE  wbvpooov 

common  /KVARTP/  KVAO(6),P0I  WRVP0010 

C N DE T Fpm I n£s  which  TYPE  OF  OUTPUT  WPvPOOll 

C KM  I - R ANK  OF  partial  DERIVATIVE  MATRIX  WRVP0012 

DIMENSION  VAR ( 1 1 > ,P0 (6.7) .HEAO ( IB)  .VARD(ll)  WRVP0013 

DIMENSION  PD  1 (6.12)  WRVPOO 1 A 

DATA  DTRR/  57.29S77R5/  WRVPOO IS 

DATA  HEAP/  WRVPOO 16 

1 7HX-F0RCF . 7HY-F0RCF , 7HZ-F0RCE . 7HYAW  M0M.9HPITCH  MOM.BhROLL  MOM.  WRVP0OI7 

2 AmThROTTLF .8HL0NG  STK.7MLAT  S TK , BHPEDAL « 3H YA W , SHP I TCH . X HR0LL . WRVP0018 

3 9hl  ThROT  I.RhL  ThroT  2.9HL  ANGLE  1.9HL  ANGLE  2.6H-ERR0R/  WRVP0019 

IFIN.E0.2)  GO  TO  20  WRVP0020 

DO  10  -L*l  . 1 1 WR  VP  0 0 ? 1 

0 A a [ • WRVP0022 

IF (L.GT.A.AND.L.lT.O)  DA=DTRR  WRVP0023 

VAR0 ID =VAR (L I ®DA  WRVP0024 

10  CONTINUE  WRVP002S 

WRITE  (6. SO)  ( VABD (KVAR (L ) 1 *L  = 1 *KMl ) WRVPC026 

IF(N.EQ.l)  RETURN  WR VP  0 02  7 

20  WR I TE  16*60)  (HEAO(J)  ,J=1.KM1)  WRVP002B 

DO  30  JsI.kmI  WRVP0029 

WRITE (6.70)  HEAO (KVAR ( J) *6) • (PD ( I . J) . 1=1 .KMl ) WRVP0030 

30  CONTINUE  WRVP0031 

WR I TE (6.70)  HEAD ( 18)  , (PD ( I .KM1*1 ) , 1 = 1 ,KMl ) WRVP0O32 

RETURN  WRVPOO  33 

Entry  wRvpi  wRvpoos-. 

WRITE(6.S0)  (HEAO ( J) .J=l .6)  WRVP003S 

DO  AO  J= 1 . 1 1 WRVP0036 

WR I TE (6.70)  HEAD ( J*6> * (PD1 ( I , J) *1=1 ,6)  WRVP0037 

40  CONTINUE  WRVPQ038 

RETURN  WR VP  0 039 

SO  FORMAT  ( IhO . 1 IX . 1 OHVAR ( I ) .10F10.5)  WRVPOOsO 

60  FOR“AT  ( 1hO.S3x .2SHPARTIAL  DERIVATIVE  MA TR I X/ 1 HO  * 1 1 X . 1 0 ( 2X • A 1 0 ) / ) wRvPOOAl 
70  FORMAT  (lH  .A10.2X.  10C.12.S)  WRVP0042 

End  wrvpooaj 


Subroutine  xpro  irx.ry.rz.fx.fy.fz, roll. pitch, yaw) 


xprooooi 


A-S4 
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C COMPUTE  VECTO«  CROSS  PRODUCT  l_ 

PO(_l  = py®f  7-pz»F  Y 
PI TCh=b7®Fx-bx®FZ 
Y A ® = R X ®F  Y-C  Y®E  * 

RETURN 

End 


a R X F XPRO0002 

xprooooj 
*p  poooo* 
xppocoos 
XPROOOOa 
X PPOO  0 0 7 


GO  TO  40 

,/YAERO ( 18,  I )•(!.■ 


puhpouTImf  yF I X (YIn, YAEPO) 

CO-mon  /STR  I ab/  AOu« ( lo4) »XEL ( 14) .9DUM( 35) , xFN ( 7) ,CDUR  < 63) • x*G ( 21 
DIMENSION  w£ AO  (5)  .YIN (21  *3)  »YAEP 0(31*3) 

OI-ENSION  S(3) 

DATA  m£A 0/ 

1 4K® ING , jhF(_E . JmF IN,6hnGP“AL  « HuRt VERSED/ 

OATA  DTrr.p; ,OTPPSO  /S7 . 29 57 b . 3 . 1 4 1 5* . 32 32 . e Ob/ 

DO  20  1 = 1. IB 
00=1. 

IF ( I .lE.2.00. 1 .FO.fe)  00=1. /DTPS 
IF  (I. Eg. 13. OP. I. EG. 17)  00  = DTPP 
IF(I.EO.U)  D0  = 0TPRSG 
DO  10  J = 1 , 3 

YAFPO  ( I . J)  = YIN  ( I . J)  »r>D 
10  CONTINUE 
20  CONTINUE 
5(1) = 2«G( 1 ) 

S (2)  =XEI_  ( 1 ) 

5(3) = X F N ( 1 1 
D0  40  1=1.3 
IF ( YAEBO (17.1) . EO . 0 . ) 

T(.H  = TAN  (YAFPO  l 1 . I ) ) -1 

CL  AF  = 2 . »P I ®yaEPO ( lb. I ) / (2. ‘SORT ( < 2 • *P I 
1 • ( 1 . ♦TUH®»2) »4 . ) ( 

XK*8=.b27® ( 1 .♦ YAF«0 (5. I) ) »®1 .5 34 *,473 
YAEP0(22.I)=XK48»CLAE®TAEP0(4,I)/S(I) 

Il=-2 
1 2 = - 1 

DO  30  Iw=?4,26.2 

11=11*4  t 12=12.4 

YAEPO ( Iw. I ) = ( YAEPOt I2t I ) /COS ( YAE«0 ( II . I) ) -YAERO (22. I ) 

1 ®SIN (2.®YAcP0 (Il.I))/2.)/ (SIN ( YAEPO ( I 1 . I ) ) ) ®«2 
30  CONTINUE 

ALMLE=ATAN (TAN ( YAEFO ( 1 . I ) ) t 1 ./YAERO ( 18. I ) • ( 1 .-YAEPO (8. I ) ) 

1 / ( 1 . »YAEO0 ( B. I ) ) ) 

XL=YAEW0 ( B . I ) 

CI=4.47*XL««3-B.12b»*L*»2.3.712®XL-.02P 
C?=2. V*3® »L •• J-7.20m®xu*®2.5. 199® XL-. 1 1 3 
XJ=.3®(l..rl)*YAFWO(lB.I)®COS(ALPLE)®((l.*Cl)®(l..C2) 

1 ”(<1..C2)“YAEP0(1B.I)®TAN( AL*l£ ) /7. ) ®®3) 

YAEPO (23. T ) =.22®x J 

1FIXJ.GT.O.)  YAEPO(23.I)=SQPT(2.55®XJ) 

*0  CONTINUE 
PCTUPN 


YAFPO(d.I) )/ (1 ..YAFRO(B.I) 
YAEPO ( lo. I ) /YAEPO (17,1))®® 


) YF I X0002 
YF IxOOOJ 
YF  I X 00O* 
YF I X 0 0 05 
YF I X0006 
YF I x 0 00  7 
YF  I X 0 0 0 B 
YFHOOIH 
YF 1x0010 
YFIxOCll 
YF 1X0012 
YF I X00  1 3 
YFIxOOl® 
YF I XOO  15 
YF I XOO  1 0 
YF  HOT  1 7 
Y F I X 0 0 1 ft 
YFIaOOI* 
YF 1x0020 
YF 1X0021 
) vr I XC  0^2 
2 yF 1x0023 
YF 1x002* 
YF I xO  02b 
YFI X0026 
YF 1X0027 
YFIX002B 
YFI X 0 0 29 
YF 1 XOO  30 
YF 1X0031 
YF I X0032 
YF 1x0033 
YFI X 0 0 3* 
YFIX0035 
YF I XOO  30 
YF I X0037 
YF I X003d 
YF  I X 0 0 39 
YF I X0040 
YF  1 X004  1 
YFIX0042 
YF  I X 0 0 4 J 
YF  I X 0 0 4 * 
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APPENDIX  B 
SAMPLE  PROGRAM  INPUT  AND  OUTPUT 
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